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IMSAI notes on CP/M System Alteration Guide 
PREFACE 

The Digital Research CP/M System Alteration Guide is written for those 
who must convert CP/M to support their peripherals before using it on 
their systems. Since IMSAI CP/M is supplied ready-to-run with standard 
IMSAI peripherals, most users will not need to read the Alteration 
Guide. It will, however, be of interest to those who wish to alter or 
add I/O drivers, and those who wish to increase their understanding 
of the workings of CP/M. 

The following section contains notes about the differences in the IMSAI 
CP/M; its sections are intended to be read concurrently with the same 
numbered sections of the Digital Research CP/M System Alteration Guide . 
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Notes on CP/M System Alteration Guide 

1. Introduction 

IMSAI CP/M has already been modified to work with the 
standard IMSAI peripherals. Further alteration will be 
required only if different or additional devices are to 
be supported. 

The next two paragraphs describe the basic differences 
in memory and diskette organization in the IMSAI 
system, as these each relate to several sections of 
the Alteration Guide. 

1.1 Memory Organization 

In a 16k IMSAI CP/M system of version 1.31 or newer, 
the BIOS, BDOS, and CCP start at addresses lOOH lower 
than as stated by Digital Research. The whole system 
is lOOH bytes larger, with the added space being in the 
BIOS. For systems created with the CPM command for 
larger memories, the addresses increase by 400H for 
each additional K. 

1.2 Diskette Organization 

IMSAI CP/M diskettes have a two-sector bootstrap and 
initialization routine written on sectors 1 and 2 of 
track 0. The system itself begins at sector 3 of track 
1 and is two sectors longer, extending through sector 
24 of track 1. 

3. Second Level System Generation 

IMSAI SYSGEN version 1.31 puts the image of tracks 0 
and 1 into the TPA starting at 700H (BOOT routine) with 
the CCP starting at 800H, the BDOS, at llOOH, and the 
BIOS, at IDOOH. These addresses are an even 2000H less 
than those at which a 16K system runs, simplifying a 
lot of the arithmetic described in the System 
Alteration Guide. 

Source code for two sections of the system,' BOOT and 
BIOS, is supplied on the distribution diskette. If you 
wish to modify either of these, edit and reassemble 
them as you would any program. Once this has been 
done, we suggest the following procedure for creating 
the modified system: 
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DDT SYSGEN.COM Load SYSGEN under DDT 

G103 Start SYSGEN - 

note special start address 

GET SYSTEM (Y-N) Y 
SOURCE ON A, TYPE RETURN 
PUT SYSTEM (Y-N) N 

System from disk A is now in RAM. 

IBIOS.HEX If it is desired 

REOOO to replace the BIOS. 



IBOOT.HEX If it is desired 

R700 to replace BOOT. 



G103 Start SYSGEN again 

GET SYSTEM (Y-N) N 
PUT SYSTEM (Y-N) Y 
DESTINATION ON B, TYPE RETURN 

System from RAM is now on disk in 

The above leaves the old system running and the new 
system on the diskette in drive B. To run the new 
system, move the diskette to drive A and bootstrap from 
it. 

The above is for a 16K system. For other memory sizes, 
first create a system of the desired size with the CPM 
command and SYSGEN it onto a diskette. Then use a 
procedure such as the above to incorporate your 
modified BOOT and/or BIOS into the relocated system. 
The modified BOOT or BIOS must be assembled for the 
memory size in which it is to run (assembly parameter 
MEMT in the current versions) . The load bias remains 
700H for boot but increases 400H for each addtional K 
for BIOS. 

If you wish to make small alterations only in BIOS or 
BOOT, or are testing or debugging, minor changes can be 
made by patching with DDT. The procedure is as shown 
above, except the alterations are made with the A 
and/or S commands rather than by loading a file. The 
same biases are used to translate the addresses shown 
in the listings to the addresses to be used with the 
DDT commands. 
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Diskette Organization 



See section 1.2. 



9. 



Reserved Locations in Page Zero 



As described, plus: 



0004H 



Contains the drive number of the 
currently logged disk 



0038H-003AH 



Are defaulted to a jump to IMSAI BIOS' 
"NXM" routine (see section 11) but may be 
changed by program. Note, however, that 
programs using RST 7 will be impossible 
to debug with DDT. 



0040H-004FH ARE used by IMSAI BIOS and should NOT 
be changed by program. 

10. The IMSAI BOOT 

BOOT resides on sectors 1 and 2 of each CP/M system 
diskette. BOOT'S function is to load and initialize 
the rest of the system. The source code for BOOT is on 
file BOOT. ASM on the distribution diskette and a 
listing is given in the appendix. The programs MBOOT 
and LBOOT, described in the System Alteration Guide, 
are not used in IMSAI CP/M. 

At either a cold or a warm start, track 0, sector 1 ib 
read into RAM at location 0 and given control. This 
sector contains the first half of BOOT, which precedes 
to read the rest of BOOT from track 0, sector 2 to 
location 80H, then read successive sectors to locations 
2800H (in a 16K system) and up until the entire CCP, 
BDOS, and BIOS have been loaded. 

If a disk error occurs during this bootstrap operation, 
BOOT displays the error code returned by the floppy 
disk interface in the lights, restores the drive, then 
retries the operation indefinitely. 

After the system has been loaded, BOOT performs system 
initialization. Both channels of a SIO serial 
interface board are initialized, so that two terminals 
may be used on the system. The IMSAI line printer 
interface (LIF) is initialized. A PIC-8 board, if 
present, is initialized such that only interrupt 7 will 
be responded to. (Interrupts are not used by CP/M. 
This initialization was chosen for the convenience of 
the user who wishes to use interrupt 7 for RAM-4A 
memory write protect violation.) The various JMP's 
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required in page 0 are set up. A JMP is also put at 
38H to the "NXM" entry point of the IMSAI BIOS. The 
lOBYTE is set from the switches on a cold start or to 
its previous value on a warm restart. The sign-on 
message, whose text is in the BIOS, is printed. 

After system initialization, BOOT transfers control to 
BIOS+0 on a cold start, or BIOS+30H on a warm restart. 

The IMSAI BIOS 

The IMSAI Basic Input-Output System's source code is on 
file BIOS. ASM on the distribution diskette and a 
listing is given in the appendix. 

The IMSAI BIOS is lOOH bytes longer than Digital 
Research's BIOS and contains considerable space for 
user additions. 

The IMSAI BIOS generally performs the functions 
described in the System Alteration Guide. The entry 
vector is located at 3D00H rather than 3E00H in a 16k 
system. There are two addtional entry points. The 
first gets control upon completion of a warm reboot and 
currently JMP's directly to the CCP. The second is the 
entry to the "NXM" routine. 

The NXM routine receives control if a program JMP's to 
a non-existent memory address or executes an RST 7 
without setting up its own JMP at 38H. When this 
occurs, the BIOS types 

CRASH pppp mm 

where pppp is the contents of the top of the stack and 
mm is the contents of memory location pppp-1. If the 
fault causing the CRASH typeout was the exection of an 
RST 7, pppp would be its location, plus 1, and mm 
would be FF. After the CRASH typeout, the system is 
rebooted . 

The CRASH typeout will also occur if a level 7 
interrupt comes from any device, and may be used to 
indicate a write protect violation on RAM-4A memory 
boards . 

The lOBYTE function is implemented as described, except 
that a line printer driver is included but drivers for 
fast paper tape reader and punch are not included. 
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Disk errors are handled as follows: 

"Not Ready" Errors: 

Are retried indefinitely, so the system waits if 
no diskette is present in the drive being 
accessed . 

All Other Errors: 

The code returned by the floppy disk interface is 
displayed in the lights (and remains until 
another error or until another program uses the 
lights) , the drive is restored, then the operation 
is retried. After 15 failures, an error return is 
given to the BDOS which types 

PERMANENT ERROR DRIVE n 

then awaits input. If a control-C is typed, the 
system is rebooted; any other character causes the 
error to be ignored. 

The warm boot entry to the BIOS recieves control from 
the JMP at BOOT (0) . This entry reads the first sector 
of the BOOT program to location 0, then JMP ' s to 3 with 
the current lOBYTE and logged disk values in registers. 

In the IMSAI BIOS the drivers for devices "ttY:" and 
"CRT:" are identical except for the port accessed and 
one other difference: The "CRT:" driver translates the 
ASCII code for underscore to rubout. This is a 
convenience for users with Lear-Siegler ADM-3 
terminals, as it eliminates the need to use the shift 
key when correcting input. Users with other terminals 
may want to remove this "feature"; the necessary change 
to BIOS should be evident from the comments in the 
listing . 

Procedures were given above for incorporating a 
modified BIOS into the system. If you wish to make 
additions that require more space than is available, 
another two sectors (lOOH bytes) are available on track 
1 of the disk. To use an enlarged BIOS, you must have 
the additional RAM above the top of the system and make 
the following additional changes: increase the assembly 
parameter LSTDMA in BOOT to cause additional sectors to 
be read; increase MEMT in SYSGEN (keeping SYSBOTTOM the 
same); and increase the number of pages specified in 
any GET and SAVE commands used with system images. 
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1. INTRODUCTION 

The standard CP/M system assumes operation on an Intel MDS microconputer 
development system, but is designed so that the user can alter a specific set 
of subroutines which define the hardvare operating enviornment. In this way, 
the user can produce a diskette which operates with a non-standard (but 
IBM-ccmpatible format) drive controller and/or periE*ieral devices. 

In order to achieve device independence, CP/M is separated into three 
distinct modules: 

BIOS - basic I/O system which is environment dependent 

BDOS - basic disk operating system which is not dependent upon 

the hardware configuration 
CCP - the console command processor vhich uses the BDOS 

of these modules, only the BIOS is dependent upon the particular hardware. 
That is, the user can "patch" the distribution version of CP/M to provide a 
new BIOS v*iich provides a customized interface between the remaining CP/M 
modules and the user's own hardware system. The purpose of this document is 
to provide a step-by-step procedure for patching the new BIOS into CP/M. 

The new BIOS requires some relatively simple software development and 
testing; the current BIOS, however, is listed in Appendix C, and can t>e used 
as a model for the customized package. A skeletal version of the BIOS is 
given in Appendix D which can form the base for a irodified BIOS. In addition 
to the BIOS, the user must write a simple memory loader, called <2!TSYS, which 
brings the operating system into marory. In order to patch the new BIOS into 
CP/M, the user must write the reverse of GETSYS, called POTSYS, \^ich places 
an altered version of CP/M back onto the diskette. POTSYS is usually derived 
from GETSYS by changing the disk read commands into disk write commands. 
Sample skeletal GETSYS and POTSYS programs are described in Section 3, and 
listed in Appendix E. In order to make the CP/M system work automatically, 
the user must also supply a cold start loader, similar to the one provided wi 
CP/M (listed in Appendices A and B) . A skeletal form of a cold start loader 
is given in Appendix F v*iich can serve as a model for your loader. 

2. FIRST LEVEL SYSTEM REGENERATION 

The procedure to follow to patch the CP/M system is given below in several 
steps. Address references in each step are shown with a following "H" which 
denotes the hexadecimal radix, and are given for a 16K CP/M system. For 
larger CP/M systons, add a "bias" to each address viiich is shown with a "+b" 
following it, where b is equal to the memory size - 16K. Values for b in 
various standard memory sizes are 

32K: b = 32K - 16K = 16K = 04000H 
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62K: 
64K: 



b = 48K - 16K = 32K = 08000H 
b = 62K - 16K = 46K = 0B800H 
b = 64K - 16K = 48K = 0C000H 



(1) Review Section 4 and write a GETSYS program which reads the first two 
tracks of a diskette into memory. The data from the diskette must begin at 
location 2880H+b. Code (ETSYS so that it starts at location 100H (base of the 
TPA) , as shown in the first part of Appendix 

(2) Test the GETSYS program by reading a blank diskette into memory, and 
check to see that the data has been read properly, and that the diskette has 
not been altered in any way by the GETSYS program. 

(3) Run the GETSYS program using an initialized CP/M diskette to see if 
GETSYS loads CP/M starting at 2880H+b (the operating system actually starts 
128 bytes later at 2900H+b) . 

(4) Review Section 4 and write the PUTSYS program which writes memory 
starting at 2880H+b back onto the first two tracks of the diskette. The 
PUTSYS program should be located at 200H, as shown in the second part of 
Appendix E. 

(5) Test the PUTSYS program using a blank uninitialized diskette by 
writing a portion of memory to the first two tracks; clear memory and read it 
back using GETSYS. Test PUTSYS completely, since this program will be used to 
alter CP/M on disk. 

(6) Study Sections 5, 6, and 7, along with the distribution version of 
the BIOS given in Appendix C, and write a simple version vhich performs a 
similar finction for the customized environment. Use the program given in 
Appendix D as a nrodel. Call this new BIOS by the name CBIOS (customized 
BIOS). Implement only the primitive disk operations on a single drive, and 
simple console input/output functions in this phase. 

(7) Test CBIOS completely to ensure that it properly performs console 
character I/O and disk reads and writes. Be especially careful to ensure that 
no disk write operations occur accidently during read operations, and check 
that the proper track and sectors are addressed on all reads and writes. 
Failure to make these checks may cause distruction of the initialized CP/M 
system after it is patched. 

(8) Referring to Figure 1 in Section 5, note that the BIOS is located 
between locations 3E00H+b and 3FFFH+b. Read ttis CP/M system using GETSYS and 
replace the BIOS segment by the new CBIOS developed in step (6) and tested in 
step (7). This replacement is done in the memory of the machine, and will be 
placed on the diskette in the next step. 

(9) Use PUTSYS to place the patched memory image of CP/M onto the first 
two tracks of a blank diskette for testing. 
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(10) Use GETSYS to bring the copied inQnory image from the test diskette 
back into memory at 2880H+b, and check to ensure that it has loaded back 
properly (clear memory, if possible, before the load). Upon successful load, 
branch to the CCP module at location 2900H+b. The CCP will call the BDOS, 
which will call the CBICS. The CBIOS will be asked to read several sectors on 
track 2 twice in succession, and, if successful, CP/M will type "A>". 

When you make it this far, you ^re almost on the air. If you have trouble, 
use ^^atever debug facilities you have available to trace and breakpoint your 
CHIOS, 

(11) Upon completion of step (10) , CP/M has prompted the console for a 
conmand input. Test the disk write operation by typing 

SAVE 1 X.COM 

(recall that all commands must be followed by a carriage return) . CP/M should 
respond with another prompt (after several disk accesses) : 

A> 

If it does not, debug your disk write functions and retry, 

(12) Then test the directory command by typing 

DIR *,* 
CP/M should respond with 

X COM 

(13) Test the erase command by typing 

EEA X.COM 

CP/M should respond with the A prompt. When you make it this far, you have an 
operational system which only requires a bootstrap loader to function 
conpletely, 

(14) Write a bootstrap loader which is similar to GETSYS, and place it 
into read-only-memory, or into track 0, sector 1 using POTSYS (again using the 
test diskette, not the distribution diskette). See Sections 5 and 8 for more 
information on the bootstrap operation, 

(15) Retest the new test diskette with the bootstrap loader installed by 
executing steps (11), (12), and (13), Upon completion of these tests, type a 
control-C (control and C keys simultaneously) , The system should then execute 
a "warm start" which reboots the system, and types the A prompt, 

(16) At this point, you probably have a good version of your customized 
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cvstem on your test diskette. Use GETSYS to load CP/M from your test 
diskette. Remove the test diskette, place the distribution diskette (or a 
legal copy) into the drive, and use PUTSYS to replace the distribution version. 
by your customized version. Do not make this replacement if you are unsure of 
your patch since this step destroys the system which vas sent to you from 
Digital Research. 

(17) Load your modified CP/M system and test it by typing 

DIR *.* 

CP/M should respond with a list of files which are provided on the initialized 
diskette. One such file should be the monory image for the debugger, called 
DDT.OOM. 

N(]TE: from now on, it is important that you always reboot 
the CP/M system when the diskette is renioved and replaced 
by another diskette, unless the new diskette is read-only. 

(18) Load and test the debugger by typing 

DDT 

(see the document "CP/M Dynamic Debugging Tool (DDT) " for operating 
information and examples). Take time to familiarize yourself with DDT; it 
will be ^ur best friend in later steps. 

(19) Before making further CBIOS modifications, practice using the editor 
(see the ED user's guide), and assembler (see the ASM user's guide). Ihen 
recede and test the GETSYS, PUTSYS, and CBIOS programs using ED, ASM, and 
IXJT. Code and test a COPY program which does a sector-to-sector copy from one 
diskette to another to obtain back-up copies of the original diskette (NOTE: 
read your CP/M Licensing Agreement; it specifies your legal responsibilities 
when copying the CP/M system) . Place the copyright notice 

Copyright (c) 1976 
Digital Research 

on each copy vvhich is made with your COPY program. 

(20) Modify your CBIOS to include the extra functions for punches, 
readers, signon messages, and so- forth, and add the facilities for a second 
drive, if it exists on your system. You can make these changes with the 
GETSYS and PUTSYS programs vhich you have developed, or you can refer to the 
following section, vhich outlines CP/M facilities which will aid you in the 
regeneration process. 

You now have a good copy of the customized CP/M system. Note that 
although the CBIOS portion of CPA1 which you have developed belongs to you, 
the modified version of CP/M v*iich you have created can be copied for your use 
only (again, read your Licensing Agreement) , and cannot be legally copied for 
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anyone else's use. If you wish, you may send you name and address to Digital 
Research, along with a description of your hardware environment and the 
modifications viiich you have made. Digital Research will make the information 
available to other interested parties, and inform them of the prices and 
availability of your CBIOS, 

It should be noted that your system remains file-compatible with all other 
CP/M systems, v*iich allows transfer of non-proor ietary software between users 
of CP/M. 



3. SECOND LEVEL SYSTEM GENERATION 



Now that you have the CP/M system running, you may wish to use CP/M 
facilities in the system regeneration process. In general, we will first get 
a memory image of CP/M from the first two tracks of an initialized diskette 
and place this memory image into a named disk file. The disk file can then be 
loaded, examined, patched, and replaced using the editor, assembler, debugger, 
and system generation program. 

Ihe SYSGEN program, supplied with your diskette, is first used to get a 
CP/M memory image from the first two tracks. Run the SYSGEN program as shown 
below 



SYSGEN start the SYSGEN program 

*SYSGEN VERSION 1.0 SYSGEN signon message 

GET SYSTEM (Y/N)?y Answer yes to GET request 
SOURCE ON B, THEN TYPE RETURN 

at this point, place an initialized diskette into drive B and type a return 
(if you are operating with a single drive, answer "A" to the GET request, 
rather than "Y", and place the initialized diskette into drive A before typing 
the return) • The program should respond with: 

FUNCTION COMPLETE l£>ad is complete 

PUT SYSTEM (Y/N)?N Answer no to PUT request 

system will automatically reboot at this point, with the memory image loaded 
into memory starting at location 900H and ending at 207FH in the transient 
program area. T5ie memory image for CP/M can then be saved (if you are 
operating with a single drive, replace your original diskette and reboot). 
The save operation is accomplished by typing: 

SAVE 32 CPM.COM Save 20H = 32 pages of memory 

Ttie memory image created by the GET function is offset by a negative bias so 
that it loads into the free area of the TPA, and thus does not interfere with 
the operation of CP/M in higher memory. This memory image can be subsequently 
loaded mder DDT and examined or changed in preparation for a new generation 
of the system. DDT is loaded with the memory image by typing 
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DOT CPM.COM 

image 



Load DDT, then read the CPM 



DOT should 



respond with 

NEXT PC 
2100 0100 



You can then use the display and disassembly commands to examine portions of 
the memory image between 900H and 207FH, Note, however, that to find any 
particular address within the memory image, you must apply the negative bias 
to the CP/M address to find the actual address. Track 00, sector 0i is loaded 
to location 900H (you should find the cold start loader at 900H to 97FH) , 
track 00, sector 02 is loaded into 980H (this is the base of the CCP) , and 
so- forth through the entire CP/M system load. In a 16K system, for example, 
the CCP resides at the CP/M address 2900H, but is placed into memory at 980H 
by the SYSGEN program. Thus, the negative bias, denoted by n, satisfies 



2900H + n = 980H, or n = 980H - 2900H 



Assuming two's canplement arithmetic, n = 0E080H, v*iich can be checked by 
2900H + 0E080H = 10980H = 0980H (ignoring high-order overflow) . 



Note that for larger systems, n satisfies 



(2900H+b) + n = 980H, or 
n = 980H - (2900H + b) , or 
n = 0E080H - b. 



The value of n for connroon CP/M systems is given below 

memory size bias b negative offset n 

16K 0000H 0E080H - 0000H = 0E080H 

32K 4000H 0E080H - 4000H = 0A080H 

48K 8000H 0E080H - 8000H = 6080H 

62K 0B800H 0E080H - 0B800H = 2880H 

64K 0C000H 0E080H - 0C000H = 2080H 

Assume, for example, that you want to locate the address x within the memory 
image loaded inder DOT in a 16K system. First type 

Hx,n Hexadecimal sum and difference 

and DOT will respond with the value of x+n (sum) and x-n (difference) • Ihe 
first number printed by DOT will be the actual memory address in the image 
where the data or code will be found. Ihe input 



H2900,E080 
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for example, will produce 980H as the sm, vjhich is where the CCP is located 
in the memory image uider DDT, 



□se the L connmand to disassemble portions of your CBIOS located at {3E00H+b)-n 
which, when you use the H command, produces an actual address of 1E80H. The 
disassembly canmand would thus be 

L1E80 



Terminate DOT by typing a control-c or "G0" in order to prepare the patch 
program. Your CBIOS, for example, can be modified using the editor, and 
assembled using ASM, producing a file called CHIOS. HEX which contains the 
Intel formatted machine code for CBIOS in "hex" format. In order to integrate 
your new CBIOS, return to DOT by tyoing 

DOT CPM.COM Start DOT and load the CPM image 

Examine the area at 1E80H where the previous version of the CBIOS resides. 
Then type 

KBIOS.HEX Ready the "hex" file for loading 

Assume that your CBIOS is being integrated into a 16K CP/M system, and is thus 
"org'ed" at location 3E00H. In order to properly locate the CBIOS in the 
memory image uider DOT, we must apply the negative bias n far a 16K system 
when loading the hex file. This is acconplished by typing 

RE080 Read the file with bias 0E080H 



Upon completion of the read, re-examine the area where the CBIOS has been 
loaded (use a "L1E80" canmand) , to ensure that is was loaded properly. When 
you are satisfied that the patch has been made, return from DOT using a 
control-c or "G0" canmand. 



Now use SYSGEN to replace the patched memory image back onto a diskette 

(use a test diskette mtil you are sure of your patch) , as shown in the 
following interaction 

SYSGEN Start the SYSGEN program 

*SYSGEN VERSION 1.0 Signon message from SYSGEN 

GET SYSTEM (Y/N)?N Answer no to GET request 

POT SYSTEM (Y/K)?Y Answer yes to PUT request 
DESTINATION ON B, THEN TYHl RETURN 

Place the test diskette on drive B (if you are operating with a sinqle drive 
system, answer "A" rather than "Y" to the PUT request, then remove your 
diskette, and replace by the test diskette) , and type a return. The system 
will be replaced on the test diskette, and the system will automatically boot 
from drive A. 

Test the new CP/M system, and place the Digital Research copyright notice 
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on the diskette, as specified in your Licensing Aareement: 



Copyright (c) , 1976 
Digital Research 



4, SAMPLE CETSYS AND POTSYS PROGRAMS 

The following program provides a framework for the GETSYS and FUTSYS 
programs referenced in Section 2. The READSBC and WRITESEC subroutines must 
be inserted by the user to read and write the specific sectors. 



GETSYS PRCDGRAM 
REGISTER 



READ TRACKS 0 AND 
[BE 



1 TO MEMORY AT 2880H 



START: 



RDTRK: 



RDSEC: 



A 


(SCRATCH REGISTER) 


B 


TRACK COUNT (0, 1) 


C 


SECTOR COUNT (1,2, ••.,26) 


DE 


(SCRATCH REGISTER PAIR) 


HL 


LOAD ADDRESS 


SP 


SET TO STACK ADDRESS 


IXl 


SP,2880H ; 


•SET STACK POINTER TO SCRATCH AREA 




H, 2880H 


?SEr BASE LOAD ADmESS 


MVI 


B, 0 J 


START WITH TRACK 0 






rREAD NEJCT TRACK (INITIALLY 0) 


MVI 


C,l ! 


•READ STARTING WITH SECTOR 1 






?READ NEXT SECTOR 


CALL 


READSEC ; 


'USER-SUPPLIED SUBROUTINE 


LXI 


D,128 ; 


MOVE LOAD ADDRESS TO NEXT 1/2 PAGE 


DAD 


D ; 


•HL = HL + 128 


INR 


C ; 


•SECTOR = SECTOR + 1 


MOV 


A,C ; 


CHECK FOR END OF TRACK 


CPI 


27 




JC 


RDSEC jCARRY GENERATED IF SECTOR < 27 



ARRIVE HERE AT END CF TRACK, MOVE TO NEXT TRACK 
INR B 

MOV A,B ;TEST FOR LAST TRACK 

CPI 2 

JC RDTRK ;CARRY GENERATED IF TRACK < 2 

ARRIVE HERE AT END OF LOAD, HALT FOR NCW 
HIT 



? USER-SUPPLIED SUBROUTINE TO READ THE DISK 
READSEC: 

ENTER WITH TRACK NUMBER IN REGISTER B, 
SECTOR NUMBER IN REGISTER C, AND 
ADDRESS TO FILL. IN HL 
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PUSH 
PUSH 



B 
H 



;SAVE B mD C REGISTERS 
;SAVE HL REGISTERS 



perform disk read at this point, branch to 
label START if an error occurs 



POP 
POP 
RET 



H 
B 



; RECOVER HL 
' ;RECOVER B AND C REGISTERS 
;BACK TO MAIN EROGRAM 



END 



START 



Note that this program is assembled and listed in Appendix D for reference 
purposes, with an assumed oriain of 100H. Hie hexadecimal operation codes 
which are listed on the left may be useful if the program has to be entered 
through your machine's front panel switches. 



The PUrSYS program can be constructed from GETSYS by changing only a few 
operations in the GETSYS program given above, as shown in Appendix E, The 
register pair HL become the dump address (next address to write) , and 
operations upon these registers do not change within the program. The READSBC 
subroutine is replaced by a VRITESEC subroutine viiich performs the opposite 
function: data from address HL is written to the track given by register B 
and sector given by register C. It is often useful to conbine GETSYS and 
PUTSYS into a single program during the test and development phase, as shown 
in the Appendix. 

5. DISKETTE ORGANIZATION 

The sector allocation for the distribution version of CP/M is given here 
for reference purposes. The first sector (see Figure 1) contains an optional 
software boot section. Disk controllers are often set up to bring track 0, 
sector 1 into memory at a specific location (often location 0000H) • The 
program in this sector, called IBOCT, has the responsibility of bringing the 
remaining sectors into memory starting at location 2900H+b. If your 
controller does not have a built-in sector load, you can ignore the program in 
track 0, sector 1, and begin the load from track 0 sector 2 to location 
2900H+b. 

As an example, the Intel MES hardware cold start loader brings track 0, 
sector 1 into absolute address 3000H. Thus, the distribution version contains 
two very small programs in track 0, sector 1: 



Upon MES start-up, the 128 byte segment on track 0, sector 1 is brought 



MBOOT - a storage move program which moves LBOOT into 
place following the cold start (Appendix A) 



LBOOT - the cold start boot loader (Appendix B) 
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into 3000H. The MBOOT program gets control, and moves the IBOOT program from 
location 301EH down to location 80H in memory/ in order to get LBOOT out the 
the area vhere CP/M is loaded in a 16K system. Note that the MBOOT program 
would not be needed if the MES loaded directly to 80H. In general, the LBOOT 
program could be located anywhere below the CP/M load location, but is most 
often located in the area between 000H and 0FFH (below the TPA) , 

After the move, MBOOT transfers to LBOOT at 80H. LBOOI', in turn, loads 
the ronainder of track 0 and the initialized portion of track 1 to memory, 
starting at 2900H+b. The user should note that MBCXJT and LBOOT are of little, 
use in a non-MDS environment, although it is useful to study them since som.e 
of their actions will have to be duplicated in your cold start loader. 

Figure 1, Diskette Allocation 
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6. THE BIOS ENTRY POINTS 



The entry points into the BIOS from the cold start loader and BDOS are 
detailed below. Entry to the BIOS is through a "jump vector" between 
locations 3E00H+b and 3E2CH+b, as shown below (see also Appendices, pages C-2 
and D-1). The jump vector is a sequence of 15 jump instructions viiich send 
program control to the individual BIOS subroutines. The BIOS subroutines may 
be empty for certain f motions (i.e., they may contain a single RET operation) 
during regeneration of CP/M, but the entries must be present in the jump 
vector . 

It should be noted that there is a 16 byte area reserved in page zero (see 
Section 9) starting at location 40H, viiich is available as a "scratch" area in 
case the BIOS is implemented in ROM by the user. Ihis scratch area is never 
accessed by any other CP/M subsystem during operation. 

The jump vector at 3E00H+b takes the form shown below, where the 
individual jump addresses are given to the left: 



3E00H+b 


JMP Bocrr 


3E03H+b 


JMP WBOOr 


3E06H+b 


JMP CONST 


3E09H+b 


JMP CONIN 


3E0CH+b 


JMP CONOUr 


3E0FH+b 


JMP LIST 


3E12H+b 


JMP PUNCH 


3E15H+b 


JMP READER 



;ARRIVE HERE FROM COLD START DGiAD 
;ARRIVE HERE FOR mm START 
;CHECK FOR CONSOLE CHAR READY 
;READ CONSOLE CHARACTER IN 
jWRITE CONSOLE CHARACTER OUT 
;WRITE LISTING CHARACT'ER OUT 
;WRITE CHARACTER TO PUNCH EEVICE 
;READ READER DEVICE 
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3E18H+b 
3ElBH+b 
SElEHfb 
3E21H+b 
3E24H+b 
3E27H+b 
3E2AH+b 



JMP HCME 
JMP SELDSK 
JMP SBTTRK 
JMP SEITSEC 
JMP SETTDMA 
JMP READ 
JMP WRITE 



MOVE TO TRACK 00 ON SELECTED DISK 

SELECT DISK DRIVE 

SET TRACK NUMBER 

SET SECTOR NUMBER 

SET DMA ADEKESS 

READ SELECTED SECTOR 

WRITE SELECTED SECTOR 



Each jump address corresponds to a particular subroutine v*iich performs the 
specific function, as outlined below. There are three major divisions in the 
jump table: the system (re) initialization which results from calls on BOOT 
and WBOOT, simple character I/O performed by calls on CONST, OONIN, OONOUT, 
LIST, PUNCH, and READER, and diskette I/O performed by calls on HOME, SELDSK, 
SETI'RK, SBTSBC, SETDMA, READ, and WRITE. 

All simple character I/O operations are assumed to be performed in ASCII, 
upper and lower case, with high order (parity bit) set to zero. An 
end-of-file condition is given by an ASCII control-z (lAH) . PeriiDheral 
devices are seen by CP/M as "logical" devices, and are assigned to physical 
devices within the BIOS. In order to operate, the BDOS needs only the CONST, 
CONIN, and CONOUT subroutines (LIST, PUNCH, and READER are used by PIP, but 
not the BDOS). Thus, the initial version of CBIOS may have anpty subroutines 
for the remaining ASCII devices. The characteristics of each device are 



CONSOLE The principal interactive console viiich 

communicates with the operator, accessed 
- through CONST, CONIN, and CONOUT. Typi- 
cally, the CONSOLE is a device such as a 
CRT or Teletype. 

LIST Hie principal listing device, if it 

exists on your system, viiich is usually 
a hard-copy device, such as a printer 
or Teletype. 

PUNCH The principal tape punching device, if it 

exists, which is normally a high-speed 
paper tape punch or Teletype. 



READER Hie principal tape reading device, such as 

a simple optical reader or Teletype. 

Note that a single peripheral can be assigned as the LIST, PUNCH, and READER 
device simultaneously. If no peri^ieral device is assigned as the LIST, 
PUNCH, or READER device, the CBIOS created by the user should give an 
appropriate error message so that the system does not "hang" if the device is 
accessed by PIP or some other user program. 



For added flexibility, the user can optionally implement the "iobyte" 
function vhich allows reassignment of physical and logical devices. Ihe 
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iobyte fmction creates a inappinq of loqical to physical devices v^ihich can be 
altered during CP/M processing. Hie definition of the iobyte function 
corresponds to the Intel standard as follows: a single location in memory 
(currently location 0003H) is maintained, called IOBYTE, vhich defines the 
logical to physical device mapping which is in effect at a particular time. 
The mapping is performed by splitting the IOBYTE into four distinct fields of 
two bits each, called the CONSOLE, READER, PUNCH, and LIST fields, as shown 
below 

most significant least significant 



ICBYTE AT 0003H | LIST I PUNCH | READER | OOl^KOLE | 



bits 6,7 bits 4,5 bits 2,3 bits 0,1 

The value in each field can be in the range 0-3, defining the assigned source 
or destination of each logical device. The values vhich can be assigned to 
each field are given below 

CONSOLE field (bits 0,1) 

0 - console is assigned to the Teletype device (TTY) 

1 - console is assigned to the CRT device (CRT) 

2 - batch mode: use the READER as the CONSOLE input, 

and the LIST device as the CONSOLE output 

3 - user defined console device 

READER field (bits 2,3) 

0 - READER is the Teletype device 

1 - READER is the high-speed reader device (RDR) 

2 - user defined reader # 1 

3 - user defined reader # 2 

P113CH field (bits 4,5) 

0 - PUNCH is the Teletype device 

1 - PUNCH is the high speed punch device (PUN) 

2 - user defined punch # 1 

3 - user defined punch # 2 

LIST field (bits 6,7) 

0 - LIST is the Teletype device 

1 - LIST is the CRT device 

2 - LIST is the line printer device 

3 - user defined list device 

Note again that the implementation of the IOBYTE is optional, and affects only 
the organization of your CBIOS. No CP/M systems use the IOBYTE (although they 
tolerate the existence of the KBYTE at location 0003H) , except for PIP which 
allows access to the TTY: and CRT: devices. If you do not implement the 
ICBYTE, you cannot access these physical devices through PIP. In any case, 
the IOBYTE implementation should be omitted uitil your basic CBIOS is fully 
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implemented and tested; then add the IQBYTE to increase youT facilities. 

Disk I/O is always performed through a sequence of calls on the various 
disk access subroutines which set up the disk number to access, the track and 
sector on a particular disk, and the direct monory access (DMA) address 
involved in the I/O operation. After all these parameters have been set up, a 
call is made on the READ or WRITE function to perform the actual I/O 
operation. Note that there is often a single call to SELDSK to select a disk 
drive, follov«d by a number of read or write operations to the selected disk 
before selecting another drive for subsequent operations. Similarly, there 
may be a single call to set the DMA address, followed by several calls vhich 
read or write from the selected DMA address before the DMA address is 
changed'. The track and sector subroutines are called before the read and 
write operations are performed. Note, however, that the BIOS does not attempt 
error recovery vhen a read or write fails, but instead reports the error 
condition to the BDOS. The BDOS then retries the read or write, assuminq the 
track and sector address remain the same. The HOME subroutine may be called 
during error recovery, following by a re-seek of the particular track and 
sector. The HOME subroutine may or may not actually perform the track 00 
seek, depending upon your controller characteristics; the important point is 
that track 00 has been selected for the next operation, and is often treated 
in exactly the same manner as SETTRK with a parameter of 00. 

The exact responsibilites of each entry point subroutine are given below: 

BOOT The BOOT entry point gets control from the cold start loader 

and is responsible for basic system initialization, includ- 
ing sending a signon message (which can be omitted in the 
first version) . If the ICBYTE function is implemented , it 
must be set at this point. The various system parameters 
vvhich are set by the WBOOT entry point must be initialized, 
and control is transferred to the CCP at 2900H+b for further 
processing. 

WBOOT The WBOOT entry point gets control when a warm start occurs. 

A warm start is performed whenever a user program branches to 
location 0000H, or vyihen the CPU is reset from the front panel. 
The CP/M systCTi must be loaded from the first two tracks of 
drive A up to, but not including, the BIOS (or CBIOS, if you 
have completed your patch) • System parameters must be ini- 
tialized as shown below: 

location 0,1,2 set -to JMP WBCOT for warm starts 

(0000H: JMP 3E03H+b) 
location 3 set initial value of lOBYTE, if 

implemented in your CBIOS 
location 5,6,7 set to JMP BDOS, which is the 

primary entry point to CP/M for 
transient programs. 
(0005H: JMP 3206H+b) 
(see Section 9 for complete details of page zero use) 
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upon ccmpletion of the initialization, the WBOOT program 
must branch to the CCP at 2900H+b to (re) start the system. 
Upon entry to the CCP, register C is set to the drive to 
select after system initialization (normally drive A is 
selected by setting register C to zero) • 

CONST Sample the status of the currently assigned console device 

and return a 0FFH in register A if a character is ready to 
read, and 00H in register A if no console characters are 
ready. 

GONIN Read the next console character into register A, and set the 

parity bit (high order bit) to zero. If no console character 
is ready, wait mtil a character is typed before returning. 

CONCXJT Send the diaracter from register C to the console output de- 

vice. The character is in ASCII, with high order parity bit 
set to zero. You may want to include a time-out on a line 
feed or carriage return, if your console device requires some 
time interval at the end of the line (such as a TI Silent 700 
terminal). You can, if you wish, filter out control char- 
acters vhich cause your console device to react in a strange 
way (a control-z causes the Lear Seigler terminal to clear 
the screen, for example). 

LIST Send the character from register C to the currently assigned 

listing device. The character is in ASCII with zero parity. 

PUNCH Send the character from register C to the currently assigned 

pinch device. Ihe character is in ASCII with zero parity. 

READER Read the next character from the currently assigned reader de- 
vice into register A with zero parity (high order bit must be 
zero) , an end of file condition is reported by returning an 
ASCII control-z (lAH) . 

HCME Return the disk head of the currently selected disk (initially 

disk A) to the track 00 position. If your controller allows 
access to the track 0 flag from the drive, step the head until 
the track 0 flag is detected. If your controller does not 
support this feature, you can translate the EiOME call into a 
call on SETTRK with a parameter of 0. 

SELDSK Select the disk drive given by register C for further opera- 
tions, v^iere register C contains 0 for drive A, and 1 for 
drive B (the standard CP/M distribution version supports a 
maximum of two drives) • If your system has only one drive, 
you may wish to give an error message at the console, and 
terminate execution. You can, if you wish, type a message at 
the console to ^itch diskettes to simulate a two drive 
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■ — • In this case, you must keep account of the current 
drive and type an appropriate inessaqe when the drive changes. 

SETTTRK Register C contains the track number for subsequent disk 

accesses on the currently selected drive. You can choose to 
seek the selected track at this time, or delay the seek until 
the next read or write actually occurs. Register C can take 
on values in the range 0-76 corresponding to valid track 
numbers. 



SETSEC 



SETDMA 



READ 



Register C contains the sector number (1 through 26) for sub- 
sequent disk accesses on the currently selected drive. You 
can choose to send this information to the controller at this 
point, or instead delay sector selection until the read or 
write operation occurs. 

Registers B and C (high order 8 bits in B, low order 8 bits 
in C) contain the DMA (direct meniory access) address for sub- 
sequent read or write operations. For example, if B = 00H 
and C = 80H when SETDMA is called, then all subsequent read 
operations fill their data into 80H through 0FFH, and all 
subsequent write operations get their data from 80H through 
0FFH, until the next call to SETDMA occurs. The initial 
DMA address is assumed to be 80H. Note that the controller 
need not actually support direct memory access. If, for 
example, all data is received and sent through I/O ports, the 
CBIOS which you construct uses the 128 byte area starting at 
the selected DMA address for the memory buffer during the 
I/O operation. 

Assuming the drive has been selected, the track has been set, 
the sector has been set, and the DMA address has been speci- 
fied, the READ subroutine attempts one read based upon these 
parameters, and returns the following error codes in register 
A: 

0 no errors occurred (bit 0 thru 7=0) 

1 Hardware malfunction (bit 0=1) 

2 Unit not ready (bit 1 = 1) 
4 Command sequence error (bit 2 = 1) 
8 CRC error (bit 3 = 1) 
16 Seek error (bit 4 = 1) 



Currently, CP/M responds only to a zero or non-zero value as 
the return code. That is, if the value in register A is 0 
then CP/M assumes that the disk operation completed properly. 
If the return code is non-zero, then CP/M retries the opera- 
tion to see if the error is recoverable. There is a maximum 
to 10 retries by CP/M before the "PERM ERR DISK d" message 
is printed at the console. Future versions of CP/M will, 
however, perform more sophisticated error recovery and thus 
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it will be useful to have the additional error responses, 

WRITE Write the data from the currently selected DMA address to the 

currently selected drive, track, and sector. 'Itie data should 
be narked as "non deleted data" to maintain compatibility 
with other CP/M systems. The error codes given in the READ 
caranand are returned in register A, with error recovery at- 
tempts as described above. 



?• A SAMPLE BIOS 

The program shown in Appendix D can serve as a basis for your first BIOS, 
The simplest f motions are assumed in this BIOS, so that you can enter it 
through the front panel, if absolutely necessary. Note that the user must 
alter and insert code into the subroutines for CONST, OONIN, ODNOUT, READ, 
WRITE, and WAITIO subroutines. Storage is reserved for user-supplied code in 
these regions. The scratch area reserved in page zero (see Section 9) for the 
BIOS is used in this program, so that it could be implemented in ROM, if 
desired. 

Chce operational, this skeletal version can be enhanced to print the 
initial sign-on message and perform better error recovery. The subroutines 
for LIST, PUNCH, and READER can be filled-out, and the lOBYTE function can be 
implemented. 



8. A SAMPLE COLD START LCADER 

The program shown in Appendix E can serve as a basis for your cold start 
loader. The disk read fmction must be supplied by the user, and the program 
must be loaded somehow starting at location 0000. Note that space is reserved 
for your patch so that the total amount of storage required for the cold start 
loader is 128 bytes. Eventually, you will probably want to aet this loader 
onto the first disk sector (track 0, sector 1) , and cause your controller to 
load it into memory automatically upon system start-up. Alternatively, you 
may wish to place the cold start loader into ROM, and place it above the CP/M 
system. In this case, it will be necessary to originate the program at a 
higher address, and key-in a jump instruction at system start-up which 
branches to the loader. Subsequent warm starts will not require this key- in 
operation, since the entry point 'WBOCT' gets control, thus bringing the 
system in from disk automatically. Note also that the skeletal cold start 
loader has minimal error recovery, which may be enhanced on later versions. 



9. RESERVED LOCATIONS IN PAGE ZERO 

Main memory page zero, between locations 00H and 0FFH, contains several 
segments of code and data vhich are used during CP/M processing. The code and 
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■a areas are given below for reference purposes. 



Locations 
from to 
0000H - 0002H 



0003H - 0003H 

0004H - 0004H 
0005H - 0007H 



0008H - 0027H 
0030H - 0037H 
0038H - 003AH 

003BH - 003FH 
0040H - 004FH 

0050H - 005BH 
005CH - 007CH 

007DH - 007FH 
0080H - 00FFH 



Contents 

Contains a jump instruction to the varm start entry 
point at location 3E03H+b. Ihis allov?s a simple 
programmed restart (JMP 0000H) or manual restart from 
the front panel. 

Contains the Intel standard lOBYTE, which is optionally 
included in the user's CBIOS, as described in Section 6, 

(not currently used - reserved) 

Contains a jump instruction to the BDOS, and serves two 
purposes: JMP 000 5H provides the primary entry point to 
the BDOS, as described in the manual "CP/M Interface 
Guide," and LHLD 0006H brings the address field of the 
instruction to the HL register pair. Ihis value is the 
lowest address in memory used by CP/M (assuming the CCP 
is being overlayed) . Note that the DDT program will 
change the address field to reflect the reduced memory 
size in debug mode. 

(interrupt locations 1 through 5 not used) 

(interrupt location 6, not currently used - reserved) 

Contains a jump instruction into the DDT program when 
running in debug mode for programmed breakpoints, but 
is not otherwise used by CP/M. 

(not currently used - reserved) 

16 byte area reserved for scratch by CBIOS, but is not 
used for any purpose in the distribution version of CP/M 

(not currently used - reserved) 

default file control block produced for a transient pro- 
gram by the Console Command Processor. 

(not currently used - reserved) 

default 128 byte disk buffer (also filled with the com- 
mand line when a transient is loaded under the CCP) . 



Note that this information is set-up for normal operation under the CP/M 
system, but can be overwritten by a transient program if the BDOS facilities 
are not required by the transient. If, for example, a particular program 
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performs only simple I/O and must begin execution at location 0, it can be 
first loaded into the TPA, using normal CP/M facilities, with a small memory 
move program which qets control v*ien loaded (the memory move proa ram must get 
control from location 100H, vhich is the assumed beginning of all transient 
programs) . The move program can then proceed to move the entire memory image 
down to location 0, and pass control to the startinq address of the memory 
load. Note that if the BIOS is overwritten, or if location 0 (containing the 
warm start entry point) is overwritten, then the programmer must bring the 
CP/M system back into memory with a cold start sequence. 
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; MDS LQADEP ^DVE PRCCRAM, PLACES GOLD STARL' BOOT AT BOOIB 

;WE ARE LOADED HERE ON GOLD START 

START' OF COLD BOOT PROGRAiM 
LENGTH OF BOOT 
BIAS TO ADD DURING LOAD 
'BASE' USED BY DISK CONTROLLER 
RESULT TYPE 
RESULT TYPE 

;BOOT SWITCH 



3000 


• 

' ORG 


3000H 


;WE ARE 


0080 = 


BOOTB 


BQU 


80H 


0080 = 


BOOTL 


EQU 


80H 


D900 = 


f4BIAS 


EQU 


900H-$ 


0078 = 


BASE 


EQU 


078H> 


0079 = 


RTYPE 


EQU 


BASE+1 


007B = 


R6YTE 

• 


EQU 


BASE+3 


00FF = 


BSW 


EQU 


0FFH 



3000 DB79 
3002 DB7B 



CLEAR DISK STATUS 
IN RTYPE 
IN RBYTE 



GOLDSTART: 



3004 


DBFF 


IN 


BSW 




3006 


E602 


ANI 


2H 


; SWITCH ON? 


3008 


C20430 


JNZ 

• 


GOLDSTART 




300B 


211E30 


' IXI 


H, BOOTV 


; VIRTUAL BASE 


300E 


0680 


MVI 


BrflOOTL 


; LENGTH OF BOOT 


3010 


118000 


LXI 


D, BOOTH 


;DESTINATION OF BOOT' 


3013 


7E 


MOVE: 


MDV 


A,M 


3014 


12 


STAX 


D 


;TRANSFERRED ONE BYTE 


3015 


23 


INX 


H 




3016 


13 


INX 


D 




3017 


05 


DCR 


B 




3018 


G21330 


JNZ 


^DVE 




301B 


C38000 


JMP 

• 


BOOTB 


;T0 BOOT SYSTEM 






BOOTV: 


;BOOT LOADER PLACE HERE AT SYSTEM GENERATION 


089E 




LBIAS 


EQU 


$-80H+MBIAS ;COLD START BOOT 


301E 




END 







A-1 



; MDS COLD START LOADER FOR CP/M 



0010 

W 1/ J* w 




MSIZE 




16 ;MEMORY SIZE IM KILOBYTES 


2000 








(MSIZE-8) * 


1024 


•CPM BASE ADDRESS BIAS BEYOND 


2900 








CBASE+900H 




•BASE OF DOS LOAD 


3206 








CBASE+1206H ; 


•ENTRY TO DOS FOR CALLS 


4000 


s 


BDOSE 


BOU 


MSIZE*1024 




END OF DOS LOAD 


3E00 




BOOT 


EOU 


BDOSE-2*256 i 


•COLD START ENTRY POINT 






• 


c^u 


B0ai'+3 




•WARM START ENTRY POINT 


VVOtJ 




• 


fl0H 


;L0ADED DOWN FROM HARDWARE BOOT AT' 3000H 


X 1 VV 








BDOSE-BDOSB 




0002 


- 


NTRKS 


BQU 


2 ;NUMBER CF 


TRACKS TO READ 


002E 




BDOSS 


EQU 


BDOSL/128 ;NUMBER OF 


SECTORS IN DOS 


0019 








25 ;NUM6ER OF 


BDOS SECTORS CN TRACK 0 


001 S 




• 




BDOSS-BDOS0 yNUMBER OF SECTORS ON TRACK 1 


P800 








0F800H ; 


•INl'EL MONITOR BASE 


PP0P 








0FF0FH ; 


•RESTART LOCATION FOR MON80 


0078 




BASE 


EQU 


078H 


•'BASE' USED BY CONTROLLER 


0079 




R5YPE 


EOU 


BASE+1 ; 


RESULT TYPE 


007B 




RBOTE 


EOU 


BASE+3 ; 


RESULT BYTE 


007F 




RESET 

• 


EQU 


BASE+7 ; 


RESET CONTROLLER 


0078 




DSTAT 


EQU 


BASE ; 


•DISK STATUS PORT 


0079 




LOW 


EQU 


BASE+1 ; 


•LOW lOPB ADDRESS 


007A 




HIC2J 


EQU 


BASE+2 


•HIGH lOPB 


ADDRESS 


0003 




REGAL 


BQU 


3H ; 


•RECALIBRATE SELECTED DRIVE 


0004 




READF 


EQU 


4H 


•DISK READ 


FUNCTION 


0100 




STACK 
• 


BQU 


100H 


•USE END OF BOOT* FOR STACK 



0080 310001 D(I SP, STACK; IN CASE OF CALL TO MON80 

; CLEAR THE CONTROLLER 
0083 D37F OUT RESET ;LOGIC CLEARED 



0085 0602 
0087 21B700 



MVI 
LXI 



B,NTRKS 
H,iaPB0 



;NUMBER OF TRACKS TO READ 



START: 



; READ FIRST/NEXT TRACK INTO BDOSB 



008A 


7D 


MOV 


A,L 


008B 


D379 


OUT 


LOW 


008D 


7C 


MOV 


A,H 


008E 


D37A 


OUT 


HlOi 


0090 


DB78 


WAIT0: 


IN 


0092 


E604 


ANI 


4 



DSTAT 



B-1 





LAy000 


JZ 


WAIT0 








\ CHECK DISK STATUS 




Yivy 1 


r\D"7Q 
UD/y 


IN 


KilFE 




0099 


E603 


AXl T 


ilo 




009B 


FE02 


LPI 


2 




009D 


D40rrr 


CNC 


RMON80 


;Gu TO MuNIlvJR IF 11 OR 10 


\Ovi\y) 


Ub /b 


' IN 


RBYTE 


;I/0 UUMFLblij, HibLK biAiUb 








READY, THEN 


GO TO MON80 




1 "7 
1 / 


RAL 






00A3 


DC0FFF 


CC 


RiVDN80 


;NOI' READY BIT SET 




1 p 
ir 


RAR 




;RESTORE 


00A7 


E61E 


ANI 


11110B 


;OVERRUN/ADDR ERR/SEEK/CRC/XXXX 


00A9 


C40FFF 


• 


RMON80 


;TRY ALL OVER AGAIN 




LLt) ixjYi 


' D(I 


D,IOPBL 


tLEngih of IOPB 




ly 


DAD 


D 


;ADDRESSING NEXT IOPB 


\0VDV 


(TIC 


DCR 


B 


jCOUNT DOWN TRACKS 






JNZ 


START 








; JMP TO 


BOOT TO PRINT INITIAL MESSAGE, AND SET UP J^ 


00B4 


C3003E 


JMP 


BOOT 








; PARAMETER BLOCKS 




vvO 1 


Ok; 


IQPB0: 


DB 


80H ?IOCW, NO UPDATE 


XJVOO 


(AA 
Y}*t 


DB 


READF 


;READ FUNCTIOQ 




1Q 

±y 


DB 


BDOS0 


;# SECTORS TO READ ON TRACK 0 


00BA 


00 


DB 


0 


;TRACK 0 


00BB 


02 


DB 


2 


;START WITH SECTOR 2 ON TRACK 0 


00dL 


00zy 


DW 


BDOSB 


jSTART AT BASE OF BDOS 


0007 




IQPBL 

• 


EQU 


$-IOPB0 


00BC 


80 


lOPBl: 


IB 


80H 


00BF 


04 


DB 


READF 




00C0 


15 


DB 


BDOSl 


;SECTORS TO READ ON TRACK 1 


00C1 


01 


DB 


1 


;TRACK 1 


00C2 


01 


DB 


1 


; SECTOR 1 


00C3 


8035 


DW 

• 


BDOSB+BDOS0*128 ;BASE OF SECOND READ 


00C5 




END 







MDS I/O DRIVERS FOR CP/M 
VERSION 1.0 SEPT, 1976 



COPYRIGHl' (C) 1976 

DIGITAL RESEARCH 

BOX 579, PACIFIC GROVE CA. 



MSIZE 


EQU 


16 ;MEMORY SIZE IN KILOBYTES 


VERS 


EQU 


10 ;CPM VERSION NUMBER 


PATCH 

• 


EOU 


MSIZE*1024-2*256 ;BASE OF THIS MODULE (ABOVE DOS) 


' ORG 


PATCH 




CBASE 


EQU 


(MSIZE-8) *1024 ;BIAS FOR SYSTEMS lABGER THAN 8K 


CPMB 


EQU 


CBASE+900H ;BASE CF CPM (CONSOLE PROCESSOR ENTRY) 


BDOS 


EOU 


CBASE+1206H ; BASIC DOS (RESIDENT PORTION) 


CPML 


EQU 


$-CPMB ;LENGrH (IN BYTES) OF CPM SYSTEM 


NSECTS 


EQU 


CPML/128 ;NUMBER OF SECTORS TO LOAD 


LBIAS 


EQU 


980H-CPM6 ; LOADER BIAS VALUE USED IN SYSGEN 


OFFSET 


EQU 


2 ;NUMBER OF DISK TRACKS USED BY CP/M 


BUFF 


EQU 


80H ;DEFAULT BUFFER ADDRESS 


; PERFORM 


FOLLOWING 


FUNCTIONS 


; BOOT 


COLD START' 


; WflOOT 


WARM START (SAVE I/O BYTE) 


; (BOOT AND WBOCT ARE THE SAME FOR MDS) 


; CONST 


CC»JSOLE 


STATUS 




RBG-A = 


00 IF NO CHARACTER READY 




RBG-A = 


FF IF CHARACTER READY 


• CONIN 


CONSOLE 


CHARACTER IN (RESULT IN REG-A) 


? CONOOT 


CONSOLE 


CHARACTER CUT (CHAR IN REG-C) 


; LIST 


LIST our (CHAR IN RBG-C) 


; PUNCH 


PUNCH OUT (CHAR IN RBG-C) 


; READER 


PAPER TAPE READER IN (RESULT TO REG-A) 


; HOME 


MDVE TO TRACK 00 



(THE FOLLOWING CALLS SET-UP THE 10 PARAMETER BLOCK FOR THE 
MDS, WHICH IS USED TO PERFORM SUBSEQUENT READS AND WRITES) 
SELDSK SELECT DISK GIVEN BY RBG-C (0,1,2...) 
SBTTRK SET TRACK ADDRESS (0,...76) FOR SUBSEQUENT READ/WRITE 
SETSEC SET SECTOR ADDRESS (1,...,26) FOR SUBSEQUENT READ/WRITE 
SETDMA SET SUBSEQUENT DMA ADDRESS (INITIALLY 80H) 



(READ AND WRITE ASSUME PREVIOUS CALLS TO SET UP THE 10 PARAMETERS) 
READ READ TRACK/SECTOR TO PRESET DMA ADDRESS 

WRITE WRITE TRACK/SECTOR FROM PRESET DMA ADDRESS 



C-1 







RnrfT' 

0<J\Jx 






TMP 




TMP 






TMP 




3E0C C3103F 


JMP 


GONOUT 


3E0F C3293F 


JMP 


LIST 


3E12 C32C3F 


JMP 


PUNCH 


3E15 C32F3F 


JMP 


READER 


3E18 C3323F 


JMP 


HQViE 


3E1B C3413F 


JMP 


SELDSK 


3E1E C35A3F 


JMP 


SETTRK 


3E21 C35F3F 


JMP 


SETSEC 


3E24 C3643F 


JMP 


SETDMA 


3E27 C36A3F 


JMP 


READ 


3E2A C3733F 


JMP 


WRITE 



UMP VECTOR FOR INDIVIUAL ROUTINES 



WBOOT 



END OF CONTROLLER - INDEPENDENT CODE, THE REMAINING SUBROUTINES 
ARE TAILORED TO THE PARTICULAR OPERATING ENVIRNOMENT' , AND MUST 
BE ALTERED FOR mY SYSTEM WHICH DIFFERS FROM THE INTEL MDS. 

THE FOLLOWING CODE ASSUMES THE MDS MONITOR EXISTS AT 0F800H 
AND USES THE I/O SUBROUTINES WITHIN THE MONITOR 

WE ALSO ASSUME THE MDS SYSTEM HAS TWO DISK ERIVES AVAILABLE 



0002 = 


NDISKS 


BQU 


2 


;NUMBER OF DRIVES AVAILABLE 


00FD = 


REVRT 


EQU 


0FDH 


;INTERRUPT REVERT PORT 


00FC = 


INTC 


EOU 


0FCH 


INTERRUPT MASK PORT 


00F3 = 


ICON 


EQU 


0F3H 


; INTERRUPT CONTROL PORT 


007E = 


INTE 


EQU 


0111$1110B ;ENABLE RST 0(WARM BOOT) , 




; MDS MONITOR EQUATES 




F800 = 


MON80 


BQU 


0F800H 


;MDS MONITOR 


FF0F = 


RMON80 


EQU 


0FF0FH 


; RESTART MON80 (DISK SELECT ERROR) 


F803 = 


CI 


EQU 


0F803H 


;CONSOLE CHARACTER TO RBG-A 


F806 = 


RI 


EQU 


0F806H 


; READER IN TO REG- A 


F809 = 


00 


EQU 


0F809H 


;CONSOLE CHAR FROM C TO CONSOLE OUT 


F80C = 


PO 


BQU 


0F80CH 


;PUNCH CHAR FROM C TO PUNCH DEVICE 


F80F = 


LO 


EQU 


0F80FH 


;LIST FROM C TO LIST DEVICE 


F812 = 


CSTS 

• 


EQU 


0F812H 


?CONSOLE STATUS 00/FF TO REGISTER A 




; DISK 


PORTS AND 


COMMANDS 




0078 = 


BASE 


BQU 


78H 


;BASE OF DISK COMMAND 10 PORTS 


0078 = 


DSTAT 


BQU 


BASE 


;DISK STATUS (INPUT) 


0079 = 


RTYPE 


BQU 


BASE+1 


;RESULT TYPE (INPUT) 


007B = 


RBYTE 

• 


BQU 


BASE+3 


; RESULT BYTE (INPUT) 


0079 = 


LOW 


EQU 


BASE+1 


;IOPB LCW ADDRESS (OUTPUT) 


007A = 


HIGH 


BQU 


BASE+2 


;IOPB HIGH ADDRESS (OUTPUT) 



7 (MONIT( 



C-2 



0004 = 
0006 = 

0003 = 

0004 - 
000D = 
000A = 



READF 

WRITF 

RECAL 

IGBDY 

CR 

LF 



BQU 
EQU 
EOU 
BQU 
EOU 
ECU 



4H 

6H 

3H 

4H 

0DH 

0AH 



READ FUNCTiaJ 
WRITE FUNCTION 
RECALIBRATE DRIVE 
I/O FINISHED MASK 
CARRIAGE RETURN 
LINE FEED 







SIGNON: 


jSIGNON MESSAGE: XXK CP/M VERS Y.Y 


3E2D 


0D0A0A 


ES 


CR,LF,LF 


3E30 


3136 


DB 


MSIZE/10+'0',MSIZE MOD 10 + '0' 


3E32 


4B2043502F 


DB 


'K CP/M VERS ' 


3E3E 


312E30 


DB 


VERS/10+'0 VERS MOD 10+'0' 


3E41 


0D0A00 


DB 

• 


CR,LF,0 






BOOT: 


; PRINT SIGNON MESSAGE AND GO TO DOS 


3E44 


318000 


IXI 


SPrBUFF 


3E47 


212D3E 


LXI 


H, SIGNON 


3E4A 


CD7C3F 


CALL 


PRMSG ; PRINT MESSAGE 


3E4D 


AF 


XRA 


A ;CLEAR ACCUMULATOR 


3E4E 


32ED3F 


STA 


DISKT ; SELECT DISK 0 ON ENTRY 


3E51 


C3A63E 


JMP 


QOCPM ;G0 lO CP/M 



WfiOOT:; LOADER ON TRACK 0, SECTOR 1, WHICH WILL BE SKIPPED FOR mm 
READ CP/M FROM DISK - ASSUMING THERE IS A 128 BYTE GOLD Sl'ART 
START. 



3E54 


318000 


IXl 


SP,BUFF 


;USING DMA - THUS 80 THRU FF AVAILABLE FOR 


3E57 


3AEC3F 


LDA 


DISKN 


;CURRENTLY LOGGED DISK, RETURN TO DISKN IF 


3E5A 


32ED3F 


STA 

• 


DISKT 


;STORE INTO DISK TEMP SINCE WE BOOT OFF OB 


3E5D 


0E0A 


' MVI 


C,10 


;MAX 10 REl'RIES 


3E5F 


C5 


PUSH 


B 








WBOOT0: 


;ENTER HERE CN ERROR RETRIES 


3E60 


010029 


IXl 


BrCPMB 


;SET DMA ADDRESS TO START OF DISK SYSTEM 


3E63 


CD643F 


CALL 


SETDMA 




3E66 


0E02 


MVI 


Cr2 


;START READING SECTOR 2 


3E68 


CD5F3F 


CALL 


SETSEC 




3E6B 


0E00 


MVI 


C,0 


; START READING TRACK 0 


3E6D 


CD5A3F 


CALL 


Sm'KK 




3E70 


0E00 


MVI 


C,0 


; START WITH DISK 0 


3E72 


CD413P 


CALL 


SELDSK 


;CHANGES DISKN TO 0 






• READ SECTORS, COUNT 


NSECTS TO ZERO 


3E75 


CI 


POP 


B 


;10-ERROR OOUNT 


3E76 


062A 


MVI 


B,NSECTS 








PDSEC: 


;READ NEXT SECTOR 


3E78 


C5 


PUSH 


B 


?SAVE SECTOR OOUNT 


3E79 


CD6A3F 


CALL 


READ 





C-3 



ETC 


C2E03E 


JNZ 


BOOTERR 


;RE1'RY IF ERRORS OCCUR 


3E7F 


2AF33F 


LHLD 


lOD 


; INCREMENT DMA ADDRESS 


3E82 


118000 


IXI 


D,128 


;SECTOR SIZE 


3E85 


19 


DAD 


D 


;INCREMENT'ED DMA ADDRESS IN HL 


3E86 


44 


iVOV 


B,H 




3E87 


4D 


MOV 


C,L 


;READY FOR CALL TO SET DMA 


3E88 


CD643F 


CALL 


SEHDMA 




3E8B 


3AF23F 


LDA 


lOS 


; SECTOR NUMBER JUST READ 


3E8E 


FEIA 


CPI 


26 


;READ LAST SECTOR? 


3E90 


rA9C3E 


JC 


RDl 








; MUST 


BE SECTOR 26, 


ZERO AND GO TO NEXT TRACK 


3E93 


3AF13F 


LEA 


lOT 


;GET TRACK TO REGISTER A 






TMP 
j.iNX\ 


A 




3E97 


4F 


MOV 


C,A 


;READY FOR CALL 


3E98 


CD5A3F 


CALL 


SETTRK 




3E9B 


AF 


XRA 


A 


;CLEAR SECTOR NUMBER 


3E9C 


3C 


RDl: 


INR 


A ;T0 NEXT SECTOR 


3E9D 


4F 


MOV 


C,A 


; READY FOR CALL 


3E9E 


CD5F3F 


CALL 


SETSEC 




3EA1 


CI 


POP 


B 


;RECALL SECTOR COUNT 


3EA2 


05 


DCR 


- B 


;DONE? 


3EA3 


C2783E 


JNZ 

• 


PDSEC 








; DCNE 


WITH THE LOAD, 


RESET DEFAULT BUFFER ADDRESS 






GOCPM: 


; (ENTER HERE FROM COLD START BOOT) 






? ENABLE RSr0 AND RST7 


3EA6 


F3 


DI 






3EA7 


3E12 


MVI 


Arl2H 


;INITIALIZE COMMAND 


3EA9 


D3FD 


QUI 


REVRT 








XRA 


A 




3EAC 


D3FC 


our 


INTO 


;CLEARED 


3EAE 


3E7E 


MVI 


A,INTE 


;RST0 AND RST'7 BITS ON 


3EB0 


D3FC 


OUT 


INTO 




3EB2 


AF 


XPA 


A 




3EB3 


D3F3 


GOT 


ICON 


; INTERRUPT CONTROL 






• SET DEFAULT BUFFER ADDRESS TO 80H 


3EB5 


018000 


DCI 


B,BUFF 




3EB8 


CD643F 


CALL 

• 


SETDMA 








• RESET 


MONITOR ENTRY 


POINTS 


3EBB 


3EC3 


MVI 


ArJMP 




3EBD 


320000 


STA 


0 




3EC0 


21033E 


DCI 


H,WBOOTE 




3EC3 


220100 


SHLD 


1 


;JMP WBOOT AT LOCATION 00 


3EC6 


320500 


STA 


5 




3EC9 


210632 


LXI 


H,BDOS 




3ECC 


220600 


SHLD 


6 


;JMP BDOS AT LOCATIC^I 5 


3ECF 


323800 


STA 


7*8 


;JMP TO MON80 (MAY HAVE BEEN CHANGED 


3ED2 


2100F8 


LXI 


H,MON80 





C-4 



3ED5 


223900 


SHLD 


7*8+1 






; LEAVE lOBYTE SET 






; PflEVrOUSLY SELECTED DISK WAS B, SEND PARAMETER TO CPM 


3ED8 


3AED3F 


LDA 


DISKT 


3EDB 


4F 


MOV 


C,A ;LOOKS LIKE A SINGLE PARAMETER TO CPM 


3EDC 


FB 


EI 




3EDD 


C30029 


JMP 


CPMB 






• ERROR CONDITION OCCURRED, PRINT MESSAGE AND RETRY 






BOOTERR: 




3EE0 


CI 


POP 


B ;RECALL COUNTS 


3EE1 


0D 


DCR 


C 


3EE2 


CAE93E 


JZ 


BOOT-ER0 






; TRY AGAIN 


3EE5 


C5 


PUSH 


B 


3EE6 


C3603E 


JMP 

• 


WflOOT0 






flOOTER0: 








; OTHERWISE TOO MANY RETRIES 


3EE9 


21F23E 


D(I 


H, BOOTMSG 


3EEC 


CD893F 


CALL 


ERROR 


3EEF 


C3543E 


JMP 


WBOOr ;FOR ANOTHER TRY 






BOOTMSG: 




3EF2 


2A43414E4E DB 
• 


'♦CANNOT BOOT SYSTEM* ',0 






• 

CONST: 


;CONSOLE STATUS TO REG-A 






; (EXACTLY THE SAME AS MDS CALL) 


3F07 


C312F8 


JMP 


CSTS 






• 

OONIN: 


;CONSOLE CHARACTER TO RBG-A 


3F0A 


CXI03F8 


CALL 


CI 


3F0D 


E67F 


ANI 


7FH ; REMOVE PARITY BIT 


3F0F 


C9 


RET 

• 








CONOUT: 


;GONSOLE CHARACTER FROM C TO CONSOLE OUT 






; SAME AS 


MES CALL, BUT WAIT FOR SLOW CONSOLES CN LINE FEED 


3F10 


79 


MOV 


A,C ;GET CHARACTER TO ACCUM 


3F11 


FE0A 


CPI 


LF ; END OF LINE? 


3F13 


F5 


PUSH 


PSW ;SAVE CONDITION FOR lATER 


3F14 


CD09F8 


CALL 


00 ;SEND THE CHARACTER (MAY BE LINE FEED) 


3F17 


Fl 


POP 


PSW 


3F18 


C0 


RNZ 


;RETURN IF IT mSN'T A LINE FEED 






; WAIT 13 


CHARACTER TIMES (AT 2400 BAUD) FOR LINE FEED TO HAPPEN 






; (THIS WORKS OUT TO ABOUT 50 MILLISECS) 


3F19 


0632 


MVI 


B,50 ;NUMBER CF MILLISECS TO WAIT 


3F1B 


0EB6 


Tl: 


MVI C,182 ;COUNTER TO CONTROL 1 MILLISEC LOOP 


3F1D 


0D 


T2: 


DCR C ;1 CYCLE = ,5 USEC 



C-5 



3F1E C21D3F 



3F21 05 
3F22 C21B3F 
3F25 C9 



3F26 C309F8 



3F29 C30FF8 



3F2C C30CF8 



JNZ 



DCR 
JNZ 
RET 



JMP 



T2 



B 

Tl 



00 



;10 CYCLES= 5.5 USEC 



5.5 USEC PER LOOP* 182 = 1001 USEC 
;FOR ANOTHER LOOP 



LIST: ;LIST DEVICE OUT 

(EXACTLY THE SAME AS MDS CALL) 
JMP LO 

PUNCH: ; PUNCH DEVICE OUT 

(EXACTLY THE SAME AS MDS CALL) 
JMP PO 

READER: ;READER CHARACTER IN TO REG-A 
(EXACTLY THE SAME AS MDS CALL) 



3F2F 


C306F8 


JMP 


RI 








HCME: 


;MOVE TO HOME POSITION 






; USE RECALIBRATION IN CASE SEEK ERRORS HAVE OCCURRED 


3F32 


0E03 


Mvr 


CRECAL ; 


•SEI' TO RECALIBRATE 


3F34 


CD9A3F 


CALL 


SETFUNC , 


•SET 10 FUNCTION 


3F37 


CDA33F 


CALL 


V«VITIO ; 


•RECALIBRATE THE CURRENT DRIVE 


3F3A 


210000 


LXI 


H,0 


•SET TRACK TO 00 FOR SUBSEQUENT OPERATIONS 


3F3D 


22F13F 


SHLD 


lOT 


•SELECT- TRACK 00 


3F40 


C9 


RET 




•MAY HAVE ERROR SET UPON RETURN 



SELDSK: ; SELECT DISK GIVEN BY REGISTER C 
; CP/M HAS CHECKED FOR DISK SELECT' 0 OR 1 , BUT WE MAY HAVE 
; A SINGLE DRIVE MDS SYSTEM, SO CHECK AGAIN AND GIVE ERROR 
; BY CALLING MON80 



3F41 


79 


MOV 


A,C 




3F42 


FE02 


CPI 


NDISKS 


;T00 LARGE? 


3F44 


D40FFF 


CNC 


RMON80 


;GIVES #ADDR MESSAGE AT CONSOLE 


3F47 


32EC3F 


STA 

• 


DISKN 


; SELECT DISK N 


3F4A 


17 


' RAL 






3F4B 


17 


RAL 






3F4C 


17 


RAL 






3F4D 


17 


RAL 






3F4E 


E610 


ANI 


10000B 


;UNIT NUMBER IN POSITION 


3F50 


4F 


MOV 


C,A 


;SAVE IT 


3F51 


21EF3F 


LXI 


H,IOF 


;I0 FUNCTION 


3F54 


7E 


MOV 


A,M 




3F55 


E6CF 


ANI 


11001111B ;MASK OUT DISK NUMBER 


3F57 


Bl 


ORA 


C 


;MASK IN NEW DISK NUMBER 



C-6 



3F58 


77 


MOV 


M,A ;SAVE IT IN lOPB 


Toe ft 

3F59 


C9 


RET 

• 








• 

SETTRK: 


;SET TRACK ADDRESS GIVEN BY C 


3F5A 


21F13F 




H,IOI' 










3F5E 


C9 


RET 

• 








SETSEC: 


;S£:r SECTOR NUMBER GIVEN BY C 


3F5F 


21F23F 


LXI 


H,IOS 


3F62 


71 


MOV 


M,C 


or 0 J 




Ktii 

• 








SETDMA: 


;SET DMA ADDRESS GIVEN BY REGS B,C 


3F64 


69 


MOV 


LrC 


3F65 


60 


MOV 


H,B 


3F66 


22F33F 


SHLD 


lOD 


3F69 


C9 


RET 








• 

READ: 


;READ NEXT DISK RECORD (ASSUMING DISKARK/SEC/DMA 


3F6A 


0E04 


MVI 


CREADF ;SET TO READ FUNCTION 


3F6C 


CD9A3F 


CALL 


SETFUNC 


3F6F 


CDA33F 


CALL 


WAITIO ; PERFORM READ FUNCTION 


3F72 


C9 


RET 

• 


;MAY HAVE ERROR SET IN REG-A 






• 

WRITE: 


;DISK WRITE FUNCTION 


3F73 


0E06 


MVI 


CWRITF 


3F75 


CD9A3F 


CALL 


SETFUNC ;SET TO WRITE FUNCTION 


3F78 


CDA33F 


CALL 


tC^ITIO 


3F7B 


C9 


RET 


;MAY HAVE ERROR SET 






• 

; UTILITY 


SUBROUTINES 






PRMSG: 


;PRINT MESSAGE AT H,L TO 0 


3F7C 


7E 


MOV 


A,M 


3F7D 


B7 


ORA 


A ;ZERO? 


3F7E 


C8 


RZ 










PK±Ni 


3F7F 


E5 


PUSH 


H 


3F80 


4F 


MOV 


C,A 


3F81 


CD09F8 


CALL 


00 


3F84 


El 


POP 


H 


3F85 


23 


INX 


H 


3F86 


C37C3F 


JMP 


PRMSG 






• 

ERROR: 


; ERROR MESSAGE ADDRESSES BY H,L 


3F89 


CD7C3F 


CALL 


PRMSG 






; ERROR MESSAGE WRITTEN, WAIT FOR RESPONSE FROM CONSOLE 



C-7 



8C 


CD0A3F 


CALL 


GONIN 




3F8F 


0E0D 


MVI 


C,CR ;CARRIAGE RETURN 


3F91 


CD103F 


CALL 


OONOUT 




3F94 


0E0A 


MVI 


C,LF ;LINE FEED 


3F96 


CD103F 


CALL 


OONOUT 




3F99 


C9 


RET 

• 


;MAY BE 


RETURNING FOR ANOTHER RETRY 






SETFUNC 










; SET FUNCTION FOR NEXT I/O 


(COMMAND IN REG-C) 


3F9A 


21EF3F 


LXI 


H,IOF ;I0 FUNCTION ADDRESS 


3F9D 


7E 


MOV 


A,M ;GET IT TO ACCUMULATOR FOR MASKING 


3F9E 


E6F8 


ANI 


11111000B ; REMOVE PREVIOUS COMMAND 


3FA0 


Bl 


ORA 


C ;SET TO NEW COMMAND 


3FA1 


77 


MOV 


M,A ; REPLACED IN lOPB 


3FA2 


C9 


RET 

• 










miTIO: 










; START 


THE I/O FUNCTIC^ AND WAIT FOR COMPLETION 


3FA3 


EB79 


IN 


RTyPE 




3FA5 


DB7B 


IN 

• 


RBYTE ;CLEARS THE CONTROLLER 


3FA7 


3EEE 


' MVI 


A,IOPB ^ND 0FFH 


?LOW ADDRESS FOR lOPB 


3FA9 


D379 


OUT 


LOW 


;T0 THE CONTROLLER 


3FAB 


3E3F 


MVI 


A,IOPB SHR 8 


;HIGH ADDRESS FOR lOPB 


3FAD 


D37A 


OUT 

• 


HlOi 


;T0 THE CONTROLLER, STARTS OPERATION 


3FAF 


DB78 


9 

WAIT0: 


IN DSTAT 


;WAIT FOR COMPLETION 


3FB1 


E604 


ANI 


lORDY 


; READY? 


3FB3 


CAAF3F 


JZ 

• 


WAIT0 








• CHECK 


10 OOMPLETIOJ CK 




3FB6 


DB79 


IN 


RTYPE 


;MUST BE I/O COMPLETE (00) UNLINKED 






; 00 UNLINKED I/O COMPLETE, 


01 LINKED I/O COMPLETE (NOT USED) 






; 10 DISK STATUS CHANGED 


11 (NOT USED) 


3FB8 


FE02 


CPI 


10B 


;READY STATUS CHANGE? 


3FBA 


CACF3F 


JZ 


WREADY 








; MUST BE 00 IN THE ACCUMULATOR 


3FBD 


B7 


ORA 


A 




3FBE 


C2D53F 


JNZ 

• 


WERROR 


;SOME OIHER CONDITION, RETRY 






; CHECK 


I/O ERROR BITS 




3FC1 


DB7B 


IN 


RBYTE 




3FC3 


17 


RAL 






3FC4 


DACF3F 


JC 


WREADY 


;UNIT NOT READY 


3FC7 


IF 


RAR 






3FC8 


E6FE 


ANI 


11111110B ;ANY OTHER ERRORS? (DELETED DATA OK) 


3FCA 


C2D53F 


JNZ 


WERBOR 





; READ OR WRITE IS CK, RETURN ZERO FLAG 



C-8 





AP 




XRA 








RErr 






WREAOY: 




UD ID 




IN 






WREAD0: 


3FD1 


AF 




XRA 


3FD2 


F602 




ORI 


3FD4 


C9 




RET 






WERROR: 








• CP/M 








• 0 








• 1 

• 2 

; 3 








• 4 



; ACCUMULATOR CLEARED, FLAGS SET 



; RETURN NOT READY INDICATCR 
RBYTE ;CLEAR RESULT BYTE 



A 

108 




;RETURN HARDWARE MALFUNCTION (CRC, TRACK, SEEK, EIC. 
CTS THE FOLLOWING RETURN CODES 

- HARDWARE MALFUNCTION 

- UNIT NOT READY (RETURNED ABOVE) 

- COMMAND SEQUENCE ERROR 

- CRC ERROR , 

- SEEK ERROR^ 




DELETED DATA (ACCEPTED AS OK ABOVE) — 

CRC ERROR - — 

SEEK ERROR — ' " ' 



THE MDS CONTROLLER HAS RETURNED THE FOLLOWING IN A 
0 
1 
2 
3 
4 
5 
6 
7 



ADDRESS ERROR {mmmE MALFUNCTION) 
DATA OVER/UNDER FLOW (HARDWARE MALFUNCTION) 
WRITE PROTECl' (TREATED AS NOT READY) 
WRITE ERROR (HARDWARE MALFUNCTION) 
NOT READY — _ 



3FD5 


47 


MOV 


B,A ;SAVE CONDITION 


3FD6 


E620 


ANI 


00100000B ?WRITE PROTECTED? 


3FD8 


C2D13F 


JNZ 


WREAD0 ;TREATED AS NOT READY 


3FDB 


78 


MOV 


A,B 


3FDC 


E606 


ANI 


00000110B ;CRC OR SEEK? 


3FDE 


C2E63F 


JNZ 


WERR0 






;N0, 


RETURN HARDWARE MALFUNCTION 


3FE1 


3E01 


MVI 


A,l 


3FE3 


C3EA3F 


JMP 

• 


WERRl 






; CRC 


OR SEEK ERROR 


3FE6 


17 


WERR0: RAL 


3FE7 


17 


RAL 




3FE8 


E618 


ANI 


11000B ;INTO PROPER POSITION 


3FEA 


B7 


WERRl 


: ORA A ;SET FLAGS 


3FEB 


C9 


RET 






DDDDQano 



3FEC 00 



DATA AREAS (MUST BE IN RAM) 
DISKN: DB 0 



;CURRENT DISK 



C-9 



3FED 


00 


DISKT: 


DB 


0 


;TEMP FOR CURRENl" DISK DURING 






ICPB: 


;I0 PARAIVETER BLOCK 




3FEE 


80 


DB 


80H 


;NORMAL I/O CT'ERATION 


3FEF 


04 


lOF: 


DB 


READF 


;I0 FUNCTION, INITIAL READ 


3FF0 


01 


ION: 


DB 


1 


;NUMBER OF SECTORS TO READ 


3FF1 


02 


lOT: 


DB 


OFFSET 


;TRACK NUMBER 


3FF2 


01 


ICS: 


IB 


1 


; SECTOR NUMBER 


♦ 3FF3 


8000 


lOD: 

• 

9 


DW 


BUFF 


;I0 ADDRESS 


3FF5 




• 

9 

END 









C-10 



; SKEDETAL CHIOS FOR FIRST I£VEL OF CP/M ALTERATION 

• NOTE : MSIZE DETERMINES WHERE THIS CHIOS IS LOCATED 
0010 = MSIZE EQU 16 ;CP/M VERSION MEMORY SIZE IN EaLOBYIES 

3E00 = PATCH ECU MSIZE*1024-2*256 ;START OF THE CHIOS PATCH 

; WE WILL USE PAKE* OF THE 10 BYTE SCRATCH AREA AHEAD 
; OF THE CHIOS FOR HOLDING THE VALUES OF: 
TRACK = LAST SELECTED TRACK 
? SECTOR = LAST SELECTED SECTOR 

; DMAAD = LAST SELECTED DMA ADDRESS 

; DISKNO = lAST SELECTED DISK NOVIBER 

; (NOTE THAT ALL ARE BYTE VALUES EJCEPT FOR DMAAD) 



3DF6 = 


c 


5CRAT 


EQU 


PATCH-10 ; START OF 10 BYTE SCRATCH AREA 


3DF6 = 


TRACK 


EQU 


SCRAT 


;CURRENTLY SELECTED TRACK 


3DF7 = 


SECTOR 


EQU 


SCRAT+1 


;CURRENTLY SELECTED SECTOR 


3DF8 = 


DMAAD 


EQU 


SCRAT+2 


;CURRENT DMA ADI»ESS 


3DFC = 


DISKNO 

• 

# 


EQU 


DMAAD^-4 ;CURRENT DISK NUMBER 


3E00 


J 


■ 

ORG 


PATCH 


;ORGIN OF THIS PROGRAM 


0000 = 


CHASE 


EQU 


(MSIZE-16)*1024 ;HIAS FOR SYSTEMS lARGER THAN 16K 




CPMB 


EQU 


CHASE+2900H ;BASE OF CP/M {= BASE CF CCP) 


3206 = 


HDOS 


EQU 


CHASE+3206H ;BASE OF RESIDENT PORTION OF CP/M 


1500 = 


CPML 


EQU 


$-CPMB 


;LENGTH CF THE CP/M SYSTEM IN BYTES 


002A = 


NSBCTS 


EQU 


CPML/128 ;NUMBER OF SECTORS TO LCAD ON WARM START 




1 


JUMP VECTOR FOR 


INDIVIDUAL SUBROUTINES 


3E00 C32D3E 




JMP 


BOOT 


;COLD START 




WBOOTE: 








3E03 C3303E 




JMP 


WBOOT 




;WARM START 


3E06 C3993E 




JMP 


CONST 




^CONSOLE STATUS 


3E09 C3AC3E 




JMP 


CONIN 




;CONSOLE CHARACTER IN 


3E0C C3BF3E 




JMP 


CONOUT 




^CONSOLE CHARACTER OUT 


3E0F C3D13E 




JMP 


LIST 




;LIST CHARACTER OUT 


3E12 C3D33E 




JMP 


PUNCH 




•PUNCH CHARACTER OUT 


3E15 C3D53E 




JMP 


READER 




rREAOER CHARACTER OUT 


3E18 C3DA3E 




JMP 


HCME 




•MOVE HEAD TO HOME POSITION 


3E1B C3E03E 




JMP 


SELDSK 




•SELECT DISK 


3E1E C3F53E 




JMP 


SEZTTRK 




?SET TRACK NUMBER 


3E21 C30A3F 




JMP 


SETSEC 




•SET SECTOR NUMBER 


3E24 C31F3F 




JMP 


SBTDMA 




;SET DMA ADDRESS 


3E27 C3353F 




JMP 


READ 




iREAD DISK 


3E2A C3483F 




JMP 


WRITE 




?WRITE DISK 



INDIVIDUAL SUBROUTINES TO FGRFORM EACH FUNCTION 



D-1 



BOOT: 



ySIMPLEST CASE IS TO JUST PERFORM PARAMETER INITIALIZATION 



3E2D 


C3793E 


JMP 

• 


GOCPM 


;INITIALIZE AND GO TO CP/M 






WBOOT: 


; SIMPLEST CASE IS TO READ THE DISK UNTIL ALL SECTORS DGAIED 


3E30 


318000 


LXI 


SP,80H 


;USE SPACE BEDOW BUFFER FOR STACK 


3E33 


0E00 


MVI 


C,0 


; SELECT DISK 0 


3E35 


CDE03E 


CALL 


SELDSK 




3E38 


CDEA3E 


CALL 


HCME 


,-GO .TO TRACK 00 


3E3B 


062A 


• 

MVI 


B,NSECTS 


;B COUNTS THE NUMBER CF SECTORS TO LOAD 


3E3D 


0E00 


MVI 


C,0 


;C I5VS THE CURRENT TRACK NUMBER 


3E3F 


1602 


MVI 


D,2 


;D HAS THE NEXT SECTOR TO READ 








WE BEGIN BY READING TRACK 0, SECTOR 2 SINCE SECTOR 1 






; CONTAINS 


THE COLD START DDADER, WHICH IS SKIPPED IN A VIkm STPO^T 


3E41 


210029 


IXI 


H,CPMB 


;BASE CF CP/M (INITIAL LOAD POINT) 






LO^Dl: 


;LQAD ONE MORE SECTOR 


3E44 


C5 


PUSH 


B 


rSAVE SECTOR COUNT, CURRENT TRACK 




Do 


FUbn 


D 


•SAVE NEXT SECTOR TO READ 


3E46 


E5 


PUSH 


H 


•SAVE DMA ADDRESS 


3E47 


4A 


MOV 


CD 


•GET SECTOR ADDRESS TO REGISTER C 


3E48 


CD0A3F 


CALL 


SETSEC ; 


•SET SECTOR ADmESS FROM REGISTER C 


3E4B 


CI 


POP 


B 


•RECALL DMA ADDRESS TO B,C 


3E4C 


C5 


PUSH 


B 


rREPIACE ON STACK FOR lATER RECALL 


3E4D 


CD1F3F 


CALL 

• 


SBIDMA 


?SET DMA ADDRESS FROM B,C 






r 

; DRIVE SET 


TO 0, TRACK SET, SECTOR SET, DMA ADEHESS SET 




/^r\o coo 


CALL 


READ 




3E53 


FE00 


CPI 


00H ;ANY ERRORS? 


3E55 


C2303E 


JNZ 


WBOOT ;RETRY THE ENTIRE BOOT IF AN ERROR OCCURS 






• 

• NO ERROR, 


MOVE TO NEXT SECTOR 


3E58 


El 


POP 


H 


•RECALL DMA ADMESS 


JEby 


11ok300 


LXI 


D,128 ; 


•DMA=DMA+128 


3E5C 


19 


DAD 


D 


•NEW DMA ADDRESS IS IN H,L 


3E5D 


Dl 


POP 


D ; 


^RECALL SECTOR ADKIESS 


3E5E 


CI 


POP 


B ; 


•RECALL NUMBER CF SECTORS REMAINING, AND CURRENT TRK 


3E5F 


05 


DCR 


B ; 


• SECTORS=SECTORS-1 


3E60 


CA793E 


JZ 


QOCPM 


^TRANSFER TO CP/M IF ALL HAVE BEEN WMMD 






; MORE SECTORS REMAIN 


TO LOAD, CHECK FOR TRACK CHANGE 


3E63 


14 


INR 


D 




3E64 


7A 


MOV 


A,D ;SBCTOR=27?, IF SO, CHAN(2: TRACKS 


3E65 


FEIB 


CPI 


27 




3E67 


DA443E 


JC 


lOVDl ;CARRY GENERATED IF SBCTOR<27 






; END CF CURRENT TRACK, GO TO NEXT TRACK 


3E6A 


1601 


MVI 


D,l ;BEGIN WITH FIRST SECTOR CF NEXT TRACK 


3E6C 


0C 


INR 


C ;TRACK=TRACK+1 



; SAVE REGISTER STATE, AND CHANGE TRACKS 



D-2 



3E6D C5 

^Www J 


PUSH 


B 




3E6E D5 


PCBH 


D 




3E6F E5 


PUSH 


H 




3E70 CDF53E 


CALL 


SETTRK 


;TPACK ADmESS SET FROM REGISTER C 


3E73 El 


POP 


H 




3E74 Dl 


POP 


D 




3E75 CI 


POP 


B 




3E76 C3443E 


JMP 

• 


LO^Dl 


;FOR ANOTHER SECTOR 




; END CF 


LQM3 OPERATION, SET PARAMETERS AND GO TO CP/M 




GOCPM: 






3E79 3EC3 


MVI 


A,0C3H 


;C3 IS A JMP INSTRUCTION 


3E7B 320000 


SIA 


0 


;FOR JMP TO WBOOT 


3E7E 21033E 


D(I 


H,WB0OrE 


;WBOaT ENTRY POINT 


3E81 220100 


SHLD 

• 


1 


;SET ADmESS FIELD FOR JMP AT 0 


3E84 320500 




5 


;FOR JMP TO BDOS 


3E87 210632 


LKI 


H,BDOS 


;BDOS E^7^RY POINT 


3E8A 220600 


SHLD 

• 


6 


;ADERESS FIELD OF JUMP AT 5 TO BDOS 


3E8D 018000 


9 

LXI 


B,80H 


;DEFAULT DMA ADIBESS IS 80H 


3E90 CD1F3F 


CALL 


SETDMA 




3E93 FB 


' EI 




;EmBLE THE INTERRUPT SYSTEM 




; FUTURE 


VERSIONS OF 


CCP WILL SELECT THE DISK GIVEN BY REGISTER 




; C UPON 


ENTRY, HENCE 


ZERO IT IN THIS VERSION OF THE BIOS FOR 




; FUTURE 


COMPATIBILITY. 


3E94 0E00 


MVI 


C,0 


? SELECT DISK ZERO AFTER INITIALIZATION 


3E96 C30029 


JMP 


CPMB 


;G0 TO CP/M FOR FURTHER PROCESSING 



3E99 

3EA9 3E00 
3EAB C9 



SIMPLE I/O HANDLERS (MUST BE FILLED IN BY USER) 

IN EACH CASE, THE ENTRY POINT IS PROVIEED, WITH SPACE RESERVED 

TO INSERT ^UR OWN COIE 



CONST: 
DS 
MVI 
RET 



;CONSOLE STATUS, RETURN 0FFH IF CHARACTER READY, 00H IF NOT 

10H ;SPACE FOR STATUS SUBROUTINE 

A,00H 



3EAC 

3EBC E67F 
3EBE C9 



CONIN: 
DS 
ANI 
RET 



;CONSOLE CHARACTER INTO REGISTER A 
10H ;SPACE FOR INPUT ROUTINE 

7FH rSTRIP PARITY BIT 



3EBF 79 
3EC0 
3ED0 C9 



OONOUT: 
MOV 
DS 
RET 



;CONSOLE CHARACTER OUTPUT FROM REGISTER C 
A,C ;GET TO ACCUMUIATOR 

10H ;SPACE FOR OUTPUT ROUTINE 



D-3 



3ED1 79 
3ED2 C9 



3ED3 79 
3ED4 C9 



LIST: ;LIST CHARACTER FROM REGISTER C 

MOV A,C ;CHARACTER TO REGISTER A 

RET ;NULL SUBRDLfTINE 

PUNCH: ;HJNCH CHARACTER FROM REGISTER C 

MOV A,C ;CHARACTER TO REGISTER A 

RET ;NULL SUBROUTINE 



3ED5 3E1A 
3ED7 E67F 
3ED9 C9 



READER: 
MVI 
ANI 



;READ CHARACTER INTO REGISTER A FROM READER DEVICE 

A,1AH ;ENrER END OF FII£ FOR NCW (REPLACE lATER) 
7FH ?REMEMBER TO STRIP PARITY BIT 



I/O DRIVERS FOR THE DISK FOLLOW 

FOR NOW, WE WILL SIMPLY STORE THE PARAMETERS AWAY FOR USE 
IN THE READ AND WRITE SUBROUTINES 







HCME: 


;MOVE TO THE TRACK 00 POSITION OF CURRENT CRIVE 






; TRANSLATE 


THIS CALL INTO A SbTi'KK CALL WITH PARAMETER 00 


3EDA 


0E00 


MVI 


C,0 ;SELECT TRACK 0 


3EDC 


CDF53E 


CALL 


SBTTRK 


3EDF 


C9 


RCT 

• 


?WE WILL MOVE TO 00 ON FIRST READ/WRITE 






SELDSK: 


; SELECT DISK GIVEN BY REGISTER C 


3EE0 


79 


MOV 


A,C 


3EE1 


32FC3D 


STA 


DISKNO 


3EE4 




OS 


10H ;SPACE FOR DISK SELECTION ROUTINE 


3EF4 


C9 


RET 

• 








ShTi'KK: 


;SEr TRACK GIVEN BY REGISTER C 


3EF5 


79 


MOV 


A,C 


3EF6 


32F63D 


STA 


TRACK 


3EF9 




DS 


10H ;SPACE FOR TRACK SELECT 


3F09 


C9 


RET 

• 








SETSEC: 


;SET SECTOR GIVEN BY REGISTER C 


3F0A 


79 


MOV 


A,C 


3F0B 


32F73D 


STA 


SECTOR 


3F0E 




DS 


10H ; SPACE FOR ^BCTOR SELECT 


3F1E 


C9 


RET 

• 








SBTDMA: 


;SBr DMA ADDRESS GIVEN BY REGISTERS B AND C 


3F1F 


69 


MOV 


L,C ;LCW ORDER ADmESS 


3F20 


60 


MOV 


H,B ;HIGH ORDER ADDRESS 


3F21 


22F83D 


SHLD 


DMAAD ;SAVE THE ADDRESS 


3F24 




DS 


11^ ;SPACE FOR SETTING THE DMA ADERESS 


3F34 


C9 


RET 





D-4 



READ: ;PEREDPM READ OPERATION (USUALLY THIS IS SIMILAR TO WRITE 

; SO WE WILL ALLOW SPACE TO SET UP READ COMMAND, THEN USE 
; COMMON CODE IN WRITE) 

DS 10H ;SET UP READ COMMAND 

JMP WAITIO ;T0 PERFORM THE ACTUAL I/O 

WRITE: ; PERFORM A WRITE OPERATION 

DS 10H ;SET UP WRITE COMMAND 

WAITIO: ;ENrER HERE FRCM READ AND WRITE TO PERFORM THE ACTUAL I/O 
; OPERATION. RETURN A 00H IN REGISTER A IF THE OPERATION COMPLETES 
; PROPERLY, AND 01H IF AN ERROR OCCURS DURING THE READ OR WRITE 

; IN THIS CASE, WE HAVE SAVED THE DISK NUMBER IN 'DISKNO' (0,1) 

THE TRACK NUMBER IN 'TRACK' (0-76) 

; THE SECTOR NUMBER IN 'SECTOR' (1-26) 

THE DMA ADDRESS IN 'DMAAD' (0-65535) 

; ALL REMAINING SPACE PRCM $ THROUGH MSIZE*1024-1 IS AVAILABLE: 

LEFT EQU (MSIZE*1024-l)-$ ;SPACE REMAINING IN CBIOS 

' MVI A,l ;ERROR CONDITION 

RET ;REPIACED WHEN FILLED-IN 

END 



D-5 



0100 
0010 = 



0000 = 



0200 



COMBINED GETSYS AND PUTSYS PROGRAMS FROM SECTION 4 

START THE PROGRAMS AT THE BASE CF THE TRANSIENT PROGRAM AREA 
ORG 100H 

MSIZE EOU 16 ;SIZE OF MEMORY IN KHjOBYTES 

; BIAS IS THE AMOUSiT TO ADD TO ADDRESSES FOR SYSTEMS tARGER THAN 16K 

; (REFERRED TO AS 'B ' THROUGHOUT THE TEXT) 

BIAS EOU (MSIZE-16)*1024 



GETSYS PROGRAM 
REGISTER 

A 

B 

C 

D,E 
H,L 
SP 



READ TRACKS 0 AND 1 TO MEMORY AT 2880H+BIAS 
USE 

(SCRATCH REGISTER) 
TRACK COUNT (0...76) 
SECTOR COUNT (1...26) 

(SCRATCH REGISTER PAIR) 

LOAD ADDRESS 

SET TO STACK ADDRESS 







GSTART: 




;START CF THE GETSYS PROGRAM 


0100 


318028 


LXI 


SP,2880H+BIAS ; 


•SET STACK POINTER TO SCRATCH AREA 


0103 


218028 


IXl 


H,2880H+BIAS ; 


•SET BASE LOAD ADDRESS 


0106 


0600 


MVI 


Br0 


•START' WITH TRACK 00 






RDTRK: 




;READ FIRST (NEXT) TRACK 


0108 


0E01 


MVI 


C,l ;READ STARTING WITH SECTOR 1 






RDSEC: 






010A 


CD0003 


CALL 


READSEC ; 


•READ NEXT SECTOR 


010D 


118000 


IXI 


D,128 ; 


•CHANGE LOAD ADDRESS TO NEXT 1/2 PAGE 


0110 


19 


DAD 


D 


•HL=HL+128 TO NEXT ADDRESS 


0111 


0C 


INR 


c 


•SECT0R=SECT0R+1 


0112 


79 


MOV 


A,C 


rCHECK FOR END (F TRACK 


0113 


FEIB 


CPI 


27 




0115 


DA0A01 


JC 

• 


RDSEC ;CARRY GENERATED IF C<27 






; ARRIVE 


HERE AT END OF TRACK, MOVE TO NEXT TRACK 


0118 


04 


INR 


B 


?TRACK=TRACK+1 


0119 


78 


MOV 


A,B 


rCHECK FOR LAST TRACK 


011A 


FE02 


CPI 


2 


•TRACK=2? 


011C 


DA0801 


JC 

• 


RDTRK 


rCARRY GENERATED IF TRACK < 2 






; ARRIVE 


HERE AT END CF LCAD, HALT FOR NCW 


011F 


FB 


EI 






0120 


76 


HLT 







PUTSYS PROGRAM - PIACE MEMORY STARTING AT 2880H+BIAS BACK TO TRACKS 
0 AND 1. START THIS PROGRAM ON THE" NEXT PAGE 
ORG ($+100H) AND 0FF00H 

REGISTER USE 

A (SCRATCH REGISTER) 



E-1 



B 
C 

D,E 
H,L 

SP 









0200 


318028 


IXI 


0203 


218028 


IXl 


0206 


0600 


MVI 






WRTRK: 


0208 


0E01 


MVI 






WRSEC: 


020A 


CD8003 


CALL 


020D 


118000 


LXI 


0210 


19 


DAD 


0211 


0C 


INR 


0212 


79 


MOV 


0213 


FEIB 


CPI 


0215 




JC 



TRACK COUNT (0,1) 
SECTOR COUNT (1...26) 
(SCRATCH REGISTER PAIR) 
DUMP ADDRESS 
SET TO STACK ADmESS 

;STARr OF THE PUTSYS PROGRAM 



SP,2880H+BIAS 
H,2880H+BIAS 

B, 0 

C, l 



WRITESEC 

D,128 

D 

C 

A,C 

27 

WRSEC 



SET STACK POINTER TO SCRATCH AREA 
SET BASE DUMP ADmESS 
START WITH TRACK 0 

jWRITE FIRST (NEXT) TRACK 
;START WRITING AT SECTOR 1 

;WRITE FIRST (NEXT) SECTOR 

;PERPORM THE WRITE 

MOVE DUMP ADDRESS TO NEXT 1/2 PAGE 
HL=HL+128 
SECrOR=SECTOR+l 
CHECK FOR END CF TRACK 
SECTOR=27? 

CARRY GENERATED IF SECTOR < 27 



; ARRIVE HERE AT END CF TRACK, MOVE TO NEXT TRACK 



0300 



0300 C5 

0301 E5 

0302 El 

0303 CI 

0304 C9 



0218 


04 


INR 


B 


;TRACK=TRACK+1 


0219 


78 


MOV 


A,B 


;TEST FOR lAST" TRACK 


021A 


FE02 


CPI 


2 


;TRACK=2? 


021C 


DA0802 


JC 

• 


WRTRK 


;CARRY GENERATED IF TRACK 






; ARRIVE 


HERE AT END DUMP, 


HALT FOR NOW 


021F 


FB 


EI 






0220 


76 


Hlff 







< 2 



USER-SUPPLIED SUBROUTINES FOR SECTOR READ AND SECTOR WRITE 

MOVE TO NEXT PAGE FOR READSEC AND WRITESEC 
ORG ($+100H) AND 0FF00H 

READSEC: ;READ THE NEXT SECTOR 

TRACK TO READ IS IN REGISTER B 
SECTOR TO READ IS IN REGISTER C 
BRANCH TO LABEL GSTART IF ERROR OCCURS 
READ 128 BYTES CF EATA TO ADDRESS GIVEN BY H,L 
PUSH B 
PUSH H 

** PIACE READ OPERATION HERE ** 
POP H 
POP B 
RET 



; MOVE TO NEXT 1/2 PAGE FOR WRITESEC SUBROUTINE 



E-2 



0380 ok; ($ AND 0FF00H) + 80H 

WRITESEC: ;WRITE THE NEXT SECTOR 

; TPACK TO WRITE IS IN REGISTER B 

; SECTOR TO miTE IS IN REGISTER C 

; BRANCH TO LABEL PSTART IF ERROR OCCURS 

; WRITE 128 BYTES CF DATA FROM ADDRESS GIVEN BY H,L 

0380 C5 PUSH B 

0381 E5 PUSH H 

; ** PEACE WRITE CPERATIOJ HERE ** 

0382 El POP H 

0383 CI POP B 

0384 C9 RET 

; END OF GETSYS/POTSYS PROGRAM 

0385 END 



THIS IS A SMPLE GOLD START* LOADER WHICH, WHEN MODIFIED, RESIDES 
ON TRACK 00, SECTOR 01 (THE FIRST SECTOR ON THE DISKETTE) . WE 
ASSUME THAT THE CONTROLLER HAS LCftDED THIS SECTOR INTO MEMORY 
UPON SYSTEM STARTUP (THIS PROGRAM CAN BE KEYED-IN, OR EXIST IN 
A PAGE OF READ-ONLY MEMORY BEYOND THE ADDRESS SPACE OF THE CP/M 
VERSION ^U ARE FUNNING) . THE COLD START LOADER BRINGS THE CP/M 
SYSTEM INTO MEMORY AT 'LQADP' (NOMINALLY 29 00H) + 'BIAS' WHERE 
THE BIAS VALUE ACCOUNTS FOR MEMORY SYSTEMS LARGER THAN 16K, AND 
CP/M VERSIONS WHICH HANDLE THE LARGER MEMORY SPACE. IN A 16K 
SYSTEM, THE VALUE OF BIAS IS 0000H. AFTER LOADING THE CP/M SYS- 
TEM, THE COLD START LOADER BRANCHES TO THE 'BOOT' ENTRY POINT OF 
THE BIOS, WHICH BEGINS AT 'BIOS' + 'BIAS'. THE COLD START WMMR 
IS NOT USED AGAIN UNTIL THE SYSTEM IS POWERED UP AGAIN, AS LONG 
AS THE BIOS IS NOT OVERWRITTEN. 



THE OHSIN IS 0, ASSUMING THE CONTROLLER LOADS THE GOLD START 
PROGRAM AT THE BASE OF MEMORY. THIS ORIGIN MUST BE IN HIGH 
MEMORY (BEYOND THE END CF THE BIOS) IF THE GOLD START LOADER 
IS IMPLEMENTED IN READ-ONLY-MEMORY. 



0000 




ORG 


0000H 


;BASE OF MEMORY 


0010 




MSIZE 


.. BQU 


16 ;MEMORY SIZE IN KELCBYTES 


0000 




BIAS 


EQU 


(MSIZE-16) *1024 ;BIAS TO ADD TO LOAD ADDRESSES 


2900 




LCADP 


EQU 


29 00H ;LOAD POINT FOR CP/M SYSTEM 


3E00 




BIOS 


BQU 


3E00H ;BASIC I/O SYSTEM (2 PAGES = 512 BYTES) 


3E00 




BOOT 


EQU 


BIOS ;COLD START ENTRY POINT IN BIOS 


1700 




SIZE 


EQU 


BIOS+512-LOADP ;SIZE CF THE CP/M SYSTEM TO LOAD 


002E 




SECTS 

• 


BQU 


SIZE/128 ;NUMBER OF SECTORS TO LOAD 






• BEGIN 


THE LOAD OPERATION 


0000 


010200 


COLD: 


IXl 


B,2 ;CLEAR B TO 0, SEH? C TO SECTOR 2 


0003 


162E 


MVI 


D,SECTS 


;NUMBER OF SECTORS TO LOAD IS IN D 


0005 


210029 


1X1 

• 


H,LCADP+BIAS ;LOAD JOINT IN H,L 






LSECT: 


;LCAD NEXT SECTOR 



; INSERT INLINE 001^ AT THIS POINT TO READ ONE 128 BYTE SECTOR 

; FROM TRACK GIVEN BY REGISTER B, 

; SECTOR GIVEN BY REGISTER C, 

; INTO ADDRESS GIVEN BY REGISTER PAIR H,L 

; BRANCH TO LOCATION 'COLD' IF A READ ERROR OCCURS 

. *************************************************** 

; USER SUPPLIED READ OPERATION GOES HERE 

. ************************************************************ 

; (SPACE IS RESERVED FOR YOUR PATCH) 
0008 C36B00 JMP PASTPATCH ;REMOVE THIS JUMP WHEN PATCHED 

000B C6 60H 

PASTPATCH: 



F-1 







; GO TO NEXT SECTOR IF LOAD 


IS INCOMPLETE 


006B 


15 


DCR 


D 


;SECTS=SECTS-1 


006C 


CA003E 


JZ 


BOOI'+BIAS 


;GC TO BOOT- LOADER AT 3E00H+BIAS 






• MORE SECTORS TO EjOAD 








; USE SP 


FOR SCRATCH REGISTER TO HOLD IjCAD ADEXIESS INCREMENT 


006F 


318000 


LXI 


SP,128 




0072 


39 


IAD 

• 


SP 


;HL=HL+128 TO NEXT LOAD ADDRESS 


0073 


0C 


' INR 


C 


;SBCT0R=SBClOR+l 


0074 


79 


mj 


A,C 


;MOVE SECTOR COUNT TO A FOR COMPARE 


0075 


FEIB 


CPI 


27 


;END OF CURRENT TRACK? 


0077 


EA0800 


JC 

• 


I5ECT 


;CARRY GENERATED IF SECTOR < 27 






; END OF 


TRACK, M)VE TO NEXT TRACK 


007A 


0E01 


iVIVI 


C,l 


;SECT0R=1 


007C 


04 


INR 


B 


;TRACK=TRACK+1 


007D C30800 


JMP 


I5ECT 


;FOR ANOTHER SECTOR 


0080 




• 

' END 







F-2 
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IMSAI BOOT PROGRAM LISTING 
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BOOT. ASM VER 1.31 REV 0 JRB 12/13/76 

IMSAI CP/M BOOTSTRAP ROUTINE 

THIS PROGRAM RESIDES ON TRACK 0, SECTOR 1 AND 2 OF 
ALL CP/M SYSTEM DISKS AND IS READ INTO RAM AT 
LOCATION 0 AND EXECUTED FOR BOTH COLD AND WARM 
START BOOTSTRAPS. 



COPYRIGHT (C) 1976, 

IMSAI MANUFACTURING CORP. 

1^1860 WICKS BLVD, SAN LEANDRO, CA 9^577, USA 



0000 
0080 
4000 
2800 
3106 
3D00 
3D00 
3D03 

3D0C 
3D2D 
3D30 
0040 
3D33 

0005 
0000 
0003 



SYSTEM RAM EQUATES 

BEASE EQU 0 
BBASE2 EQU 80H 
MEMT EQU 4000H 
SYSBOTTOM EQU MEMT-1800H 
ENTRYPOINT EQU MEMT-4» 1 024+256+6 
BIOS 
BOOTR 
WBOOT 



EQU 


MEMT-300H 


EQU 


BIOS 


EQU 


BIOS+3 


EQU 


BIOS+OCH 


EQU 


BIOS+02DH 


EQU 


BI0S+030H 



CONOUT 
NXM 

WBOOTR 
FIFSTRING EQU 40H 
MESSAGE EQU BIOS+33H 

ENTRYJMP EQU 5 
WEOOTJMP EQU 0 
lOBYTE EQU 3 



WHERE THIS PROGRAM RUNS 
WHERE SECTOR 2 OF THIS PROGRAM RUNS 
TOP OF MEMORY, BEFORE RELOCATION BY CPM PROGRAM 
FIRST LOCATION OCCUPIED BY SYSTEM 

;WHERE SYSTEM CALLS ENTER SYSTEM 
WHERE BASIC I/O SYSTEM ENTRIES ARE 
WHERE COLD BOOT EXITS TO 
WHERE TO GO TO INITIATE WARM BOOT 
(IE TO GET THIS PROGRAM READ IN AND ENTERED) 
ROUTINE TO OUTPUT CHARACTER TO CONSOLE 
WHERE RESTART 7 SHOULD GO 
WHERE WARM BOOT RETURNS TO 

WHERE TO PRESET FIF STRING PTR 0 TO FOR BIOS 
LOCATION OF SIGN-ON MSG TEXT IN BIOS 
N. B. ABOVE MUST MATCH VALUES USED IN BIOS !; 
WHERE TO PUT JMP ENTRYPOINT 
WHERE TO PUT JMP REBOOT 
LOCATION OF 10 STATUS BYTE 



BOOT. 



IMSAI CP/M BOOTSTRAP MODULE VERSION 1T3I REV 0 



APPENDIX 1 



^GE 



0000 = 

0001 = 
0001 = 



SYSTEM DISK LAYOUT EQUATES 



FTRK EQU 0 
LTRK EQU 1 
NSECTB4SYSTEM EQU 



FIRST TRACK TO READ 
LAST TRACK TO READ 
1 ;HUMBER OF SECTORS TO SKIP BEFORE READING SYSTEM: 

THE ONE SECTOR CONTAINING THIS PROGRAM 
SECOND SECTOR OF THIS PROGRAM IS TREATED 
AS PART OF SYSTEM EXCEPT IT IS REDIRECTED TO 8OH 
AFTER SECTOR 2 SECTORS ON DISK ARE READ INTO MEMORY IN ORDER, 
STOPPING AT MEMT. 

I/O DEVICE CONFIGURATION EQUATES 

FLOPPY DISK PORT 

PRI INT CNTRL BOARD. INITIALIZED, NOT USED. 
BASE PORT # OF SIO BOARD 

STATUS PORT OF IMSAI SERIAL I/O BOARD TO INITIALIZE 
STATUS PORT OF TOTHER... 

CONTROL PORT FOR SIO BOARD (BOTH CHANNELS) 

IMSAI PTR-300'^@LINE''ePRINTER PORT 
COMMAND TO INIT LINE PRINTER 
COMMAND TO TURN MOTOR OFF AND FORM FEED 



;FIF STRING POINTER USED BY BIOS AND BOOT 
; ASCII FORM FEED CHARACTER 



OOFD r 


DISK 


EQU 


OFDH 


00F7 = 


PIC8 


EQU 


0F7H 


0000 = 


SIOBD 


EQU 


0 


0003 = 


SI0S1 


EQU 


SIOBD+3 


0005 = 


SI0S2 


EQU 


SIOBD+5 


0008 = 


SIOC 


EQU 


SIOBD+8 


00F6 = 


PRINTER 


EQU 


0F6H 


0080 = 


PINIT 


EQU 


80H 


0082 = 


POFF 


EQU 


82H 




•MISCELLANEOUS 


0000 = 


SPTR 


EQU 


0 


OOOC = 


FF 


EQU 


OCH 



> IT ® 
3. a «o 

«£> ^ "J 

» — 

a > w 

(D > 
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2700 = 

2780 = 
4000 = 



THE BOOTSTRAP PORTION OF THIS PROGRAM READS 
EVERY NTH SECTOR ON ONE DISK REVOLUTION FOR SPEED, 
INTO APPROPRIATE MEMORY LOCATIONS. DISC CONTAINS 
DIRECT MEMORY IMAGE. 

TO MAKE ITS ADDRESS INCREMENTING SCHEME WORK, 
THE PROGRAM MUST LOOP OVER AN INTEGRAL NUMBER OF TRACKS. 

HOWEVER, THE PROGRAM DOES NO 10 FOR SECTORS 
AT BEGINNING OF FIRST TRACK OR END OF LAST TRACK WHICH 
DO NOT CONTAIN INFORMATION TO BE READ. 

FLASH!; ANOTHER KLUDGE I; THE SYSTEM INITIALIZER TURNS OOUT TO BE 
TOO BIG FOR ONE SECTOR AND THE DISK READER IS A VERY TIGHT FIT. 
THE MINIMUM MEMORY MODIFICATION TO READ TRACK 0, SECTOR 2 INTO 
LOCATION 80H AS THE REST OF THE INITIALIZER TURNS OUT TO BE 
TO ALTER THE RAM ADDRESS FOR THE LOWEST 

SECTOR READ. HENCE THE FOLLOWING 2 EQUATES ARE AS THOUGH 
THE SYSTEM STARTS 128 BYTES LOWER IN RAM THAN IT DOES. 



FSTDMA EQU 

FSTRDMA EQU 
LSTDMA EQU 



SYSB0TT0M-NSECTBi|SYSTEM»l28-128 

; WHERE 1ST SECTOR WOULD BE READ 
;IF IT WERE TO BE READ 

SYSBOTTOM-128 ;FIRST LOCATION TO REALLY READ INTO 

; EXCEPT SEE FLASH NOTE ABOVE 

MEMT ;FIRST»LOCATION BEYOND END OF PROGRAM 



^ to 

<Q tr ^ 

w ' — 

-, O 2 

a .> g> 

=• o 



0005 = 
001B = 

001A = 

0001 = 
0080 = 



; PARAMETERS 
SKEW EQU 



FOR SKEWING SCHEME 



ETSCT EQU 27 



NSCTPT EQU 26 



FSCT 
SCTSIZ 



EQU 
EQU 



1 

128 



READ EVERY 5FH SECTOR, CHANGE WITH 
CARE! ; 7 ALSO WORKS. 
ENDTEST SECTOR NUMBER. 27 WORKS 
FOR 5 AND 7, BUT OTHER SKEWS MAY 
CHANGE THIS ! 

NUMBER OF SECTORS PER TRACK 

N.E. IF THIS CHANGES, REVIEW SKEW AND ETSECT! 
NUMBER OF FIRST SECTOR 
SIZE OF SECTORS 



0100 = 



STACK EQU 100H 



;WHERE TO PUT STACK 
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0000 



ORG BBASE 



» WARNING TO ANYONE ALTERING FOLLOWING CODE: » 

» THERE IS SOMETHING ORG«D AT MOH A FEW LINES « 

» DOWN. IF YOU INSERT INSTRUCTIORS BEFORE « 

« IT, YOU MUST MOVE SOME INSTRUCTIONS » 

« FROM ABOVE TO BELOW IT » 



0000 16FF 

0002 21 
0003 

0003 1600 



ENTRY VECTOR 



WBOOTE 



MVI D,OFFH 
DB 21H 
ORG BBASE+3 
MVI D,0 



; COLD .START, ENTERED BY HARDWARE BOOT 
;LXI H, OP CODE: SKIP OVER MVI D,0 



;WARM START. BIOS JMPS HERE AFTER READING SECTOR 
;1, TRACK 0. B AND C CONTAIN VALUES TO 
; PRESERVE II 
;FLAG IN D IS PRESERVED THRU DISK READ: 
; NON-0 FOR COLD START, 0 FOR WARM START. 



ROUTINE TO READ SYSTEM OFF DISK 



= 0) ^ 

<o hj- ^ 

3^ o "vi 

«« — 

3 C S 

a > w 

(D > 

_ _. o 

^ r* n 

cn 



REGISTER USE 

A SCRATCH 

BC WARM START PARAMETERS TO SAVE 

D WARM/COLD FLAG 

E SECTOR NUMBER 

HL RAM ADDRESS/SCRATCH 

SP SCRATCH/RAM ADDRESS 

STACK IS NOT AVAILABLE UNTIL READ IS COMPLETE: 
A SECTOR IS READ IN OVER IT. 

N. B. DO NOT CLOBBER B, C, OR D I 
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0005 
0007 
0009 
OOOB 
OOOD 
OOOE 



3E10 
D3FD 
3EliO 
D3FD 
AF 

D3FD 



0010 210027 



0013 3EFC 



0015 C605 

0017 5F 

0018 32^1400 
001B 224500 

001E F9 
001F 218027 



0022 
0023 
0024 
0025 
0027 
0028 
0029 
002A 



002D 
002E 
002F 
0032 
0035 



AF 
95 
6F 

3E00 
9C 
67 
39 

D26A00 



7D 
B4 

C23800 
.2JL8000 

1500 



INITITIALIZE TO READ OFF DISK 

MVI A,10H+SPTR ;"SET STRING PTR" 

OUT DISK 

MVI A,FIFSTRING AND OFFH 

OUT DISK. ;SET LO STRING ADDRESS 

XRA A ;MVI A.FIFSTRING SHR 8 AND OFFH 

OUT DISK ;SET HI STRING ADDRESS 

INIT RAM ADDRESS IN HL 

LXI H,FSTDMA 
TOP OF READ TRACKS LOOP 
RO: MVI A,(FSCT-SKEW) AND OFFH 



;FIRST SECTOR 



TOP OF READ SECTORS LOOP 



R1 : 



ADI SKEW ; COMPUTE NEXT SECTOR 

MOV E,A ;SAVE SECTOR NUMBER FOR PROGRAM 

STA BSECT ; STORE SECTOR FOR FLOPPY INTERFACE 

SHLD BBUFAD ;SET MEMORY ADDRESS FOR DISC 

;DON»T READ IF OUT OF ADDR RANGE, BUT CONTINUE LOOPING 

SPHL ;RAM A'DDRESS TO SP UNTIL INCREMENTED BELOW 

LXI H,FSTRDMA ;THIS MUST BE POSITIVE FOR RELOCATION 
; NEGATE HL 
XRA A 
SUB L 
MOV L,A 
MVI A,0 
SBB H 
MOV H,A 
DAD SP 

JNC OK jADDR TOO LOW: PROVISION FOR THIS PROGRAM TO BE ON 1ST SCTR 
;FLASH KLUDGE!; IF ADDRESS IS EXACTLY LOWEST, READ 
;T0 80H INSTEAD. THIS GETS 2ND HALF OF THIS PROGRAM. 
MOV A,L 

ORA H ' 

JNZ R1A 

LXI H,BBASE2 

SHLD BBUFAD 

R 1 A : 



(/) 
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RLE VERS 10 



.31 REV U 



APPENDIX 



AGE t 



0038 2100*10 

003B AF 
003c 95 
003D C347OO 



00^0 
0040 21 
OO^il 00 
00M2 0000 
00*14 01 
0045 0027 



0047 6F 

0048 3E00 
004A 9C 
004B 67 
004C 39 
004D DA6A00 



0050 AF 

0051 214100 

0054 77 

0055 D3FD 

0057 86 

0058 CA5700 
005B FE01 
005D CA6A00 



LXI H,LSTDMA 

; AGAIN, NEGATE HL 

XRA A 

SUB L 
JMP B00T1 

PRE-INITIALIZED FIF COMMAND STRING 

STUCK IN THIS REDICULOUS PLACE CAUSE IT'S WHERE BIOS 
USES IT, AND IT SAVES THE FEW BYTES OF CODE IT TAKES 
TO SET STRING POINTER AGAIN IN BOOT. 



BCMD: 

BSTAT: 

BTRK: 

BSECT: 

BBUFAD: 



ORG FIFSTRING 
DB 21H 
DB 0 

DB 0,FTRK 
DB 1 

DW FSTDMA 



READ SECTOR, UNIT 0 COMMAND 

STATUS BYTE 

TRACK 

SECTOR 

BUFFER ADDRESS 



B00T1: ;N0W, BACK TO WHAT WE WERE DOING 



MOV L,A 
MVI A,0 
SBB H 
MOV H,A 

DAD SP 

JC OK 



;READ THIS SECTOR 



;FINISH NEGATING HL 



R2: 



WAIT 



XRA 
LXI 
MOV 

;N. 

OUT 
ADD 



H, BSTAT 
M,A 
B. ArO 
DISK 
M 



JZ WAIT 
CPI 1 
JZ OK 



;JMP IF ADDRESS TOO HI: 

;THIS IS TO ALLOW FOR SYSTEM LENGTH 

; BEING OTHER THAN WHOLE # OF TRACK LENGTHS 



;HERE TO RETRY AFTER ERROR 
; POINT STATUS BYTE 
;ZERO STATUS BYTE 
IS ALSO COMMAND FOR DISK 
DO IT ! 

TOP OF WAIT LOOP 

WAIT FOR FIF TO STORE NON-0 STATUS 
TEST FOR EXACT GOOD RETURN 
GO INCREMENT TO NEXT SECTOR 



3^ o ^ 
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0060 2F 

0061 D3FF 
0063 3E21 
0065 D3FD 
0067 C35000 



006A 7B 

006B 218002 

006E FE16 
0070 FA7B00 

0073 CA7F00 



0076 DE1A 
0078 2180F5 
007B 39 
007C C31500 



; DISPLAY ERROR CODE IN LIGHTS 

CMA ;LIGHTS DISPLAY COMPLEMENT 

OUT OFFH 

MVI A,21H ;RESTORf: THE DRIVE - IT HELPS 

OUT DISK 

JMP R2 ;TRY AGAIN,. AND AGAIN 

OK: 

INCREMENT ADDRESSES WITH SKEW 

NEXT SECTOR: MOVE UP "SKEW" SECTORS, AND ADJUST 
MEMORY ADDRESS CORRESPONDINGLY 

MOV A,E ;SECTOR NUMBER TO A 

;("SKEW" IS ADDED TO THIS AT TOP OF LOOP) 
LXI H,SKEW»SCTSIZ ;MEM ADDR INCREMENT 
;END OF PASS THRU THIS TRACK TEST 
CPI NSCTPT+FSCT-SKEW 

JM DADSP ;G0 UPDATE HL THEN READ. SECTOR IS IN A 

;END OF TRACK TEST 

;CPI ETSCT-SKEW ; TEST ON MAGIC NUMBER 

;N.B. MAGIC NUMBER IS SAME AS NUMBER JUST TESTED ON ! 

JZ NXTTRK ;IF DONE THIS TRACK, GO INCREMENT TRACK 

; RECYCLE THRU THIS TRACK, GETTING A DIFFERENT GROUP 
; OF SPACED SECTORS 

SBI NSCTPT ;UNCREMENT SECTOR # 

LXI H,(SKEW-NSCTPT)«SCTSIZ ;MEMORY ADDRESS DECREMENT 
DADSP: DAD SP ;COMPUTE NEXT MEM ADDR, LEAVE IN HL 

JMP R1 ;NOW GO READ. SECTOR IS IN A 

CODE ABOVE HERE MUST FIT BELOW 80H. 
BYTES 80H-EFH ARE READ IT BY THE TIME FIRST 
TRACK READ IS COMPLETE. 

; INCREMENT MEM ADDR 
;TRACK 



;HAVE WE DONE LAST TRACK? 
;N0, GO READ TRACK 
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;NEXT TRACK 




007F 


39 


NXTTRK: DAD 


SP 


0060 


3Ail300 


LDA 


BTRK+1 


0083 


3C 


INR 


A 


008i| 


32^^300 


STA 


BTRK+1 


0087 


FE02 


CPI 


LTRK+1 


0089 


FA1300 


JM 


RO 



008^ ,10001 



DONE READING FROM DISC ! 

AT THIS POINT STACK CAN BE USED 
LXI SP, STACK 
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OOAO 3E80 
00A2 D3F6 



OOA^I 3EC3 



00A6 
00A9 
OOAC 



21033D 
320000 
220100 



OOAF 210631 
00B2 320500 
00B5 220600 



00B8 212D3D 
OOBB 323800 
OOBE 223900 



00C1 DBFF 
00C3 320300 



INITIALIZE BOTH CHANNELS OF IMSAI SERIAL INTERFACE BOARD 

IF SIO HAS JUST BEEN RESET, IT EXPECTS A "MODE" THEN A "COMMAND". 
BUT IF IT HASN«T BEEN RESET (WARM START), IT IS NOT EXPECTING A "MODE" 
SO WE SEND IT A DUMMY THAT LEAVES IT EXPECTING A COMMAND REGARDLESS, 
THEN A RESET COMMAND (40H), THEN DESIRED MODE AND COMMAND. 



r» r» O c 

OOoF 


2 1 EoOO 


LXI 


HjSIOSTRING 


0092 


7E 


MOV 


A,M 


0093 


D303 


SIOLUP: OUT 


SI0S1 


0095 


D305 


OUT 


SI0S2 


0097 


23 


INX 


H 


0098 


7E 


MOV 


A,M 


0099 


B7 


ORA 


A 


009A 


C29300 


JNZ 


SIOLUP 


009D 


AF 


XRA 


A 


009E 


D308 


OUT 


SIOC 



;TURN OFF INTERUPTS AND 

CARRIER DETECT, BOTH CHANNELS - 



INITIALIZE LINE PRINTER 



MVI 
OUT 



A,PINIT 
PRINTER 



jPRINTER INITIALIZE COMMAND 



PUT THE VARIOUS JUMPS IN LOWER RAM 

MVI A,0C3H ;"JMP" OP CODE 

;'"JMP REBOOT" AT 0 

LXI H,WBOOT 

STA WBOOTJMP 

SHLD WEOOTJMP+1 
;"JMP ENTRYPOINT" AT 5 FOR SYSTEM CALLS 

LXI H, ENTRYPOINT 

STA ENTRYJMP 

SHLD ENTRYJMP+1 

"JMP NXM" FOR RESTART 7 (DDT WILL CHANGE IF USED). THIS IS ACCESSED 
A JMP INTO NON-EXISTENT MEMORY, ALSO BY WRITE PROTECT VIOLATION ON 
IF WIRED DIRECT TO "INT" LINE BY USER. AN IMSAI EXTENSION OF BIOS 
LXI H,NXM 
STA 038H 
SHLD O38H+I 

INITIALIZE lOBYTE FROM SWITCHES 

IN OFFH 
STA lOBYTE 
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AFTER 
RAM-llA 
FUNCTIONS 
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00C6 


7A 


MOV 


A,D 


00C7 


B7 


ORA 


A 


00C8 


CAE100 


JZ 


WB00T9 






J 

; COLD START 


ONLY: 






J 

; SIGN-ON 


MESSAGE 


OOCB 


21333D 


LXI 


H, MESSAGE 


OOCE 


4E 


MSLOOP: MOV 


C,M 


OOCF 


CD0C3D 


CALL 


CONOUT 


00D2 


23 


INX 


H 


00D3 


7E 


MOV 


A,M 


0OD4 


B7 


ORA 


A 


00D5 


C2CE00 


JNZ 


MSLOOP 



00D8 3E09 
CODA D3F7 



OODC OEOO 
CODE C3003D 



0QE1 78 
00E2 320300 
00E5 C3303D 



;IF WARM RESTART 

jMESSAGE TEXT IS IN BIOS 

;USE CHAR TYPING ROUTINE IN BIOS 



INITIALIZE IMSAI PRIORITY INTERRUPT CONTROL BOARD 

THIS CODE SETS IT AS THO A LEVEL 6 INT IS RUNNING, 

TO DISABLE CHANNELS AND MINIMIZE CHANCE OF PROBLEM FROM 

SPURIOUS INTERRUPT. 

BUT CHANNEL 7 IS LEFT ACTIVE FOR USER TO USE FOR MEMORY 
PROTECT VIOLATION, SINCE IMSAI CP/M DOES INTERCEPT RST-7'S 
USERS USING OTHER INTERRUPTS MAY CHANGE THIS. 
MVI A,00001001B 
OUT PICS 

EXIT TO BIOS WITH DISK TO SELECT IN C 
MVI C,0 ;SAY SELECT DISK A 

JMP BOOTR ;EXIT TO BIOS 

WARM RESTART ONLY: 

RESTORE I/O BYTE SAVED IN B REGISTER 

SAVED LOGGED DISK NUMBER IN C IS USED BY CCP 
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WB00T9: MOV 
STA 
JMP 



A,B 

lOBYTE 
WBOOTR 



;G0 TO BIOS WITH DISK # IN C 



; BYTES TO SEND TO SIO STATUS PORTS 
00E8 AEi|0AE3700SI0STRING: DB OAEH , iiOH , OAEH , 37H , 0 
OOED 28i}3292031 DB '(C) 1976' 



00F5 



;NOTE THAT STACK WRITES OVER Eh iF THIS SECTOR 

END 



APPENDIX 2 
IMSAI BIOS PROGRAM LISTING 
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0002 = 



4000 = 



2800 = 

3D00 = 

3D33 = 
0004 = 
0 040 = 
0040 = 



0003 = 



BIOS. ASM VERSION 1.31 REV 0 12/13/76 

BASIC I/O SYSTEM FOR IMSAI CP/M 

VERSION 0.0 GE 8/76 

LATER VERSIONS BY JRB 

COPYRIGHT (C) 1976, 

IMSAI MANUFACTURING CORP, 14860 WICKS BLVD, SAN LEANDO, CA 94577 USA 



; NUMBER OF DISK DRIVES IN SYSTEM 
NDISKS EOU 2 



; MEMORY SIZE 

MEMT EQU 4000H 



;BEF0RE -RELOCATION WITH CPM PROGRAM 



; WHERE TO ENTER CP/M AFTER WARM OR COLD BOOT: 
CPMB EQU MEMT-1800H 

BIOS EQU MEMT-3*256 ; LOCATION OF BASIC I/O SYSTEM 

MESSAGE EQU BIOS+33H ;LOCATION OF SIGN-ON MSG TEXT 

LOGDISK EQU 4 ;WHERE CCP PUTS LOGGED DISK # 

BIOSTOR EQU 40H ;WHERE BIOS STORAGE IS IN PAGE 0 RAM 

FIFSTRING EQU BIOSTOR ;FLOPPY INTERFACE COMMAND STRING 

;WARM BOOT ENTRY INTO BOOTSTRAP ROUTINE ON TRACK 0, SECTOR 1 
WBOOTE: EQU 3 
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0003 = 



OOFD 
0000 
0002 
0003 
000^1 
0005 



00F6 
0080 
0082 
00F6 



0003 
0009 
OOOA 
OOOC 
OOOD 
001A 
005F 
007F 



; I/O ASSIGNMENT BYTE IN LOWER RAM 
lOBYT EQU 3 



I/O PORT EQUATES 



DISK 

SPTR 

TTY 

TTYS 

CRT 

CRTS 



EQU OFDH 

EQU 0 

EQU 02H 

EQU 03H 

EQU 04H 

EQU 05H 



;FIF STRING POINTER USED BY BIOS 



jLINE PRINTER 
PRINTER EQU 0F6H 
PINIT EQU 80H 
POFF EQU 82H 
PRINTERS EQU PRINTER 
PREADY EQU XXX 



;OUTPUT PORT 
; INITIALIZE COMMAND 
;TURN OFF MOTOR, FORM FEED 

;STATUS PORT IS SAME AS OUTPUT PORT 
;MASK FOR PRINTER READY STATUS 
NO STATUS CHECK NEEDED AFTER SENDING COMMANDS OR SINGLE CHARS 
ANYTHING SENT TO PRINTER WITH B7=0 IS TAKEN AS ASCII CHAR TO PRINT 



EQUATES FOR ASCII CHARACTERS 

CTRLC EQU 3 

TAB EQU 9 

LF EQU OAH 

FF EQU OCH 

CR EQU ODH 

CTRLZ EQU 1AH 
UNDERLINE EQU 5FH 

RUBOUT EQU 7FH 
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3D00 



ORG BIOS 
ENTRY POINT TABLE 



;ORIGIN EQUATED ABOVE 



3D00 


; 

C30028 ENTAB:' 


JMP 


CPMB ; 


COLD START. BOOT HAS DONE ALL INIT, GO DIRECT 


3D03 


C3A93E 


JMP 


WBOOT ; 


COME HERE TO INITIATE REBOOT (VIA LOCATION 0) 


3D06 


C3BD3D 


JMP 


CONSTAT 


3D09 


C3D53D 


JMP 


CONIN 




3D0C 


C3E33D 


JMP 


CONOUT 




3D0F 


C3F13D 


JMP 


LIST 




3D12 


C3013E 


JMP 


PUNCH 




3D15 


C3123E 


JMP 


READER 




^D18 


C^Q6 


JMP 


HOME 




3D1B 


C3AF3D 


JMP 


SELDSK 




^D1E 


C^QC^D 


JMP 


SETTRK 




3D21 


C3A13D 


JMP 


SETSEC 




3D24 


C3A63D 


JMP 


SETDMA 




3D27 


C3573D 


JMP 


READ 




3D2A 


C3613D 


JMP 


WRITE 




3D2D 


C38B3E 


JMP 


NXM ; 


FOR RESTART ?: GIVE ERROR MESSAGE 


3D30 


C30028 


JMP 


CPMB ; 


WARM BOOT RETURNS HERE. GO DIRECT TO CP/M. 




• SIGN- 


ON MESSAGE, TYPED 


BY. BOOT ROUTINE 


3D33 


ODOAi^94D53MESSAGE 


: DB 


CR,LF, 'IMSAI 


16K CP/M VERS 1.31 ' ,0 


3Di|F 


28^3292031 


DB » 


(C) 1976» 





P/M 



=. i 5 
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3D57 3Ai|000 
3D5A E60F 
3D5C F620 
3D5E C3683D 



3D61 3A4000 
3D6i| E60F 
3D66 F610 
3D68 324000 



DISK ROUTINES 



READ FROM SELECTED DRIVE/TRACK/SECTOR 



READ: 



LDA CMD 

ANI OFH 

ORI 20H 

JMP W1 



; STRIP OLD CMD 
; CMDrREAD 
GO DO IT 



WRITE TO SELECTED DRIVE/TRACK/DISK 



WRITE: 



W1: 



LDA CMD 

ANI OFH 

ORI 10H 

STA CMD 



; STRIP OLD CMD 
: CMD=WRITE 
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3D6B 
3D6C 
3D6E 

3D71 
3D72 

3D73 
3D75 
3D76 

3D79 
3D7B 



C5 

OEOF 
214100 
AF 
77 

D3FD 
86 

CA753D 

FE01 

CA8E3D 



3D7E FEA1 
3D80 CA6E3D 

3D83 2F 
3D84 D3FF 

3D86 3E2F 
3D88 D3FD 
3D8A OD 
3D8B C26E3D 



3D8E 
3D90 
3D91 
3D92 

3D93 
3D94 
3D95 



E6F0 

IF 

1F 

IF 

IF 

CI 

C9 



EXECUTE COMMAND STRING 



PUSH B 
MVI C,15 



EXO: 

EX1 : 

;DISC 
; OTHER 
;HOME 



LXI 
XRA 
MOV 
OUT 
ADD 
JZ 
CPI 
JZ 
ERROR 
CPI 
JZ 



H,STAT 
A 

M,A 

DISK 
M 

EX1 
1 

EX2 



WARM BOOT REQUIRES BC PRESERVED 
RETRY COUNT: KEEP AT IT! 
POINT AT STATUS 



ZERO STAT. BYTE 
EXEC CMD STRING 
GET STATUS 

LOOP UNTIL STATOO 
TEST FOR EXACT GOOD RETURN 
GO EXIT IF GOOD 
CONTROLLER HAS ALREADY RETRIED CRC ERRORS 10 TIMES 
0A1H ;TEST FOR NOT READY 

EX02- ;WAIT FOREVER FOR DOOR TO BE CLOSED 

ERRORS, DISPLAY CODE IN LIGHTS 
CMA ;CAUSE LIGHTS DISPLAY COMPLEMENT 

OUT OFFH ;T0 LIGHTS 

THE DRIVE - IT SEEMS TO HELP 



EX2: 



MVI 
OUT 
DCR 
JNZ 

ANI 
RAR 
RAR 
RAR 
RAR 
POP 
RET 



A,2FH 

DISK 

C 

EXO 
OFOH 



;HOMES ALL DRIVES 



= 0) ^ 

2. a CO 

CO it «J 

? ? -J 

" o i 

S > w 

(D > 
III 

s 2. o 

9- c T) 



; ISOLATE ERROR CLASS 

; PUT IN LOWER HALF BYTE 



B 
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3D96 3E2F 
3D98 D3FD 
3D9A OEOO 



3D9C 79 
3D9D 324300 
3DA0 C9 



3DA1 79 
3DA2 
3DA5 C9 



3DA6 79 
3DA7 32^^500 
3DAA 78 
3DAB 324600 
3DAE C9 



ALL DRIVES TO TRACK 0 
AND SET TRACK 0 FOR NEXT OP 

CLOBBERS C 
HOME: MVI A,02FH 
OUT DISK 
MVI CO 
;JMP SETTRK 

SET TRACK. GET IN REG C. 



SETTRK: MOV A,C 

STA TRK+1 
RET 



SET SECTOR. GET IN REG C. 



SETSEC: MOV A,C 
STA SECT 
RET 



SET DMA BUFFER ADDRESS. 
GET IN REG BC. 



SETDMA: MOV A,C 

STA BUFADR 

MOV A,B 

STA BUFADR+1 
RET 



SELECT DISK DRIVE. GET IN REG C. 
C=0 FOR DRIVE 0, C=1 FOR DRIVE 1 

CLOBBERS BC. 



3DAF 


79 


SELDSK: 


MOV 


A C 


3DB0 


FE02 




CPI 


NDISKS 








;RP 




3DB2 


3E80 




MVI 


A,80H 


3DB4 


07 


SD1: 


RLC 


3DB5 


OD 




DCR 


C 


3DB6 


F2B43D 




JP 


SD1 


3DB9 


324000 




STA 


CMD 


3DBC 


C9 




RET 





;T00 BIG. DO SOMETHING REASONABLE 
;TRANSLATE TO IMSAI BIT 
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LOGICAL DEVICE ROUTINES 

THESE ROUTINES USE VARIOUS PHYSICAL DEVICES 
DEPENDING ON CONTENTS OF lOBYT 



3DBD CDC53D 
3DC0 B7 
3DC1 C8 
3DC2 3EFF 
3DCM C9 



3DC5 
3DC8 
3DCB 
3DCD 
3DCF 
3DD1 



3A0300 

CD213E 

3C3E 

613E 

D33D 

883E 



3DD3 AF 
3DDi| C9 



3DD5 3A0300 
3DD8 CD213E 
3DDB 313E 
3DDD 663E 



3DDF 
3DE1 



123E 
883E 



CONSOLE STATUS 

CONSTAT: CALL CONS 
ORA A 
RZ 

MVI A,OFFH 
RET 



;GETS STATUS OF SPECIFIC DEVICE 

;IF NOT READY RETURN 0 IN A 
;ELSE RETURN FF 



;USE BITS 1-0 TO DETERMINE CONSOLE DEVICE 



CONS: LDA lOBYT 

CALL RLCDISPATCH 
DW TTYSTAT 
DW CRTSTAT 

DW READERSTAT ;2: BATCH MODE, USE READER DEVICE 
DW NULLSTAT ; 3 : UNASSIGNED CHANNEL 

READER STATUS FOR BATCH MODE: NEVER A CHARACTER READY. 
THIS IS CAUSE PRESENCE OF A CHARACTER FREQUENTLY MEANS 
"ABORT WHAT YOU'RE DOING". 
READERSTAT: XRA A 
RET 

CONSOLE IN 



= » _r 

(O 

" o i 

a > to 

3- rt O 

2- C 10 



CONIN: LDA lOBYT 

CALL RLCDISPATCH 
DW TTYIN 
DW LSCRTIN 



DW 
DW 



READER 
NULLI 



0: TTY 
1: CRT 

CHANGE ABOVE TO 'CRTIN' TO GET RID OF SPECIAL FEATURE 
2: BATCH MODE: READER INPUT 
3: UNASSIGNED CHANNEL 
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3DE3 
3DE6 

3DE9 
3DEB 
3DED 
3DEF 



3DF1 
3DF4 
3DF5 
3DF6 
3DF9 
3DFB 
3DFD 
3DFF 



3E01 
3E04 
3E05 
3E06 
3E07 
3E0A 
3E0C 
3E0E 
3E10 



3E12 
3E15 
3E16 
3E19 
3E1B 
3E1D 
3E1F 



3A0300 

CD213E 

^13E 

723E 

F13D 

723E 



3A0300 

07 

07 

CD213E 

^13E 

723E 

8i*3E 

723E 



3A0300 
OF 
OF 
OF 

CD223E 

ii13E 

723E 

723E 

723E 



3A0300 
OF 

CD223E 

313E 

883E 

883E 

883E 



CONSOLE OUT 



MUST PRESERVE HL FOF NXM AND BOOTSTRAP 



CONOUT: LDA lOBYT 

CALL RLCDISPATCH 

DW TTYOUT 

DW CRTOUT 

DW LIST 

DW NULLO 

LIST OUT 



LIST: 



;G0 TO ONE OF FOLLOWING ADDRESSES 
BITS=0: USE TTY AS CONSOLE 
1: CRT 

2: BATCH MODE: OUTPUT TO LIST DEVICE 
3: UNASSIGNED 



PUNCH 



LDA 


lOBYT 




RLC 




;BITS 7-6 TO 2-1 


RLC 






CALL 


RLCDISPATCH 




DW 


1 1 lUUl 


; 0 : TTY 


DW 


CRTOUT 


;1: CRT 


DW 


Lr lOUf 


;2: LINE PRINTER 


DW 


NULLO 


;3: UNASSINGNED 


OUT 






LDA 


lOBYT 


;BITS TO 1-2 


RRC 




RRC 






RRC 






CALL 


DISPATCH 




DW 


TTYOUT 


;0: TTY 


DW 


PUNO 


;1: HIGH SPEED PUNCH 


DW 


NULLO 


;2: UNASSIGNED 


DW 


NULLO 


;3: UNASSIGNED 


IN 






LDA 


lOBYT 


;BITS 3-2 TO 2-1 


RRC 




CALL 


DISPATCH 




DW 


TTYIN 


;0: TTY 


DW 


RDRIN 


; 1 : HIGH SPEED 


DW 


NULLI 


;2: UNASSIGNED 


DW 


NULLI 


;3: UNASSIGNED 
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SUBROUTINE TO DISPATCH TO ONE OF i| FOLLOWING ADDRESSES 
DEPENDING ON lOBYT BITS CALLER HAS POSITIONED IN 
BITS 2 AND 1 OF A. 

RETURNS TO SUBROUTINE CALL PRIOR TO CALL TO DISPATCH. 



3E21 


07 


RLODISPATCH : 


RLC 




3E22 


E606 


DISPATCH: ANI 


06H , 


MASK BITS 


3E24 


E3 


XTHL 




;SAVE CALLER'S H, GET TABLE ADDRESS 


3E25 


D5 


PUSH 


D 




3E26. 


5F 


MOV 


E.A 




3E27 


1600 


MVI 


D,0 ;SET UP FOR DAD 


3E29 


19 


DAD 


D ;INDEX INTO TABLE 


3E2A 


7E 


MOV 


A,M 




3E2B 


23 


INX 


H 




3E2C 


66 


MOV 


H,M , 


TABLE WORD TO HL 


3E2D 


6F 


MOV 


L,A 




3E2E 


D1 


POP 


D 


«« 


3E2F 


E3 


XTHL 




•PUT ADDRESS OF ROUTINE, GET CALLER'S 


3E30 


C9 


RET 




;G0 TO ROUTINE ! 



5- o 
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PHYSICAL DEVICE ROUTINES 

ADDRESSED BY LOGICAL DEVICE ROUTINES ABOVE, 
ALSO TTY AND CRT MAY HAVE EXTERNAL ENTRY POINTS 



3E31 
3E3^ 
3E37 
3E39 
3E3B 



CD3C3E 

CA313E 

DB02 

E67F 

C9 



3E3C DB03 
3E3E E602 
3E40 C9 



TELETYPE INPUT 



TTYIN: 



CALL TTYSTAT 
JZ TTYIN 
IN TTY 
ANI 7EH 
RET 



;WAIT FOR A CHAR TO BE AVAILABLE 

; INPUT IT 

; REMOVE PARITY 



TTYSTAT: ;USED HERE AND IN CONSTAT ABOVE 

IN TTYS ;GET STATUS 

ANI 02H jMASK BIT 

RET ;A IS NON-0 IF CHAR AVAILABLE 

TELETYPE OUTPUT 

CLOBBERS DE. BOOT DEPENDS ON PRESERVING HL 

MUST PRESERVE HL FOR NXM, BOOTSTRAP 



3E41 


DB03 


TTYOUT: IN 


TTYS 


; STATUS 


3EM3 


OF 


RRC 




;TEST BIT 0 




D2il13E 


JNC 


TTYOUT 


;WAIT TILL READY TO ACCEPT CHARACTER 


3Eil7 


79 


MOV 


A,C 




3Ei|8 


D302 


OUT 


TTY 


; OUTPUT THE CHARACTER 


3E4A 


FEOD 


CPI 


CR 




3Ei^C 


CO 


RNZ 




;DONE EXCEPT CR 






; DELAY 100 MSEC FOR CR, 


FOR SLOW-RETURNING TERMINALS 


3E4D 


110429 


LXI 


D, 10500D 




3E50 


IB 


TTYWT1; DCX 


D 




3E51 


B2 


ORA 


D 


;DEPENDS ON A7=0 AT ENTRY TO ROUTINE 


3E52 


F2503E 


JP 


TTYWT1 


;LOOP TAKES 9.5 USEC PER COUNT 


3E55 


C9 


RET 
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3E6C FE5F 
3E6E CO 
3E6F 3E7F 
3E71 C9 



3E72 
3E7^ 
3E75 
3E78 
3E79 
3E7B 
3E7D 

3E7E 
3E81 



DB05 
OF 

D2723E 
79 

D30ii 
FEOD 
CO 

10100 

C3503E 



CRT INPUT 







r R ' r T N • r A 1 1 


PRT^TAT 




n U J 


A7 


TRTTM 


3E5C 


DBOil 


IN 


CRT 


3E5E 


E67F 


ANI 


7FH 


^E60 

J Jj w w 


CQ 


RET 

• 




3E61 


DB05 


CRTSTAT: IN 


CRTS 


3E63 


E602 


ANI 


02H 


3E65 


C9 


RET 








•MORE CONVENIENT CRT 






LSCRTIN: 




3E66 


CD563E 


CALL 


CRTIN 






: IGNORE BREAK KEY - 


3E69 


CA663E 


JZ 


LSCRTIN 



;GET CHAR FROM REGULAR ROUTINE 



; CONVERT UNDERLINE (ARROW ON OLDER KEYBOARDS) TO RUBOUT 
;S0 IT ISN'T NECESSARY TO USE SHIFT KEY TO CORRECT ERRORS 
;NOT DESIRABLE IF YOUR KEYBOARD HAS BACK ARROW. 

CPI UNDERLINE 

RNZ 

MVI A, RUBOUT 
RET 

NOTE; IF TYPEING '^Z TO THE EDITOR ERASES THE SCREEN ON YOUR ADM-3, 
OPEN IT UP AND SET THE » CLEAR SCREEN' SWITCH TO 'DISABLE'. 



is © 

3- O ^ 

-. o 2 

S > CO 

8. I 2 

1 _. o 

2 3 ' 

5- r+ o 

IP 

S- -D 



CRT OUTPUT 

MUST PRESERVE HL FOR BOOT, 
CLOBBERS DE 

CRTS 



NXM 



CRTOUT: 



IN 
RRC 
JNC 
MOV 
OUT 
CPI 
RNZ 



CRTOUT 
A,C 
CRT 
CR 



LXI 
JMP 



D,1 
TTYWT1 



W^l 



;HOOK FOR USER TO PATCH IN CR W^TT IF DESIRED ON THIS CHANNEL 

;PUT Cl 



HERE A LA TTYOUT ABOVE 
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LINE PRINTER OUT 



3E81* 79 
3E85 D3F6 
3E87 C9 



3E88 3E1A 
3E8A C9 
3E88 = 



3E72 = 



3E88 = 
3E88 = 



LPTOUT: 

: INSERT A STATUS CHECK HERE TO BE SAFE ? 



MOV A,C 
OUT PRINTER 
RET 



;THE CHARACTER 



NULL DEVICE, FOR UNDEFINED DEVICES. 

FOR UNASSIGNED AND AND UNIMPLEMENTED INPUT DEVICES, 
HERE IS AN INFINITE SOURCE OF EOF'S: 
NULLI: MVI A,CTRLZ 
RET 

NULLSTAT EQU NULLI ;CHARACTER ALWAYS READY 

DON'T USE CRT FOR UNASS INPUT DEVICES CAUSE IF THERE 
IS NO CRT ON SYSTEM BUT INTERFACE BOARD IS PRESENT, 
SYSTEM WILL HANG. 

FOR UNUASS AND UNIMP OUTPUT DEVICES, USE CRT. 

IF NO CRT IS PRESENT, THIS IS AN INFINITE DATA SINK 
NULLO EQU CRTOUT 

HERE IS WHERE TO PUT HIGH SPEED READER DRIVER 



RDRIN EQU NULLI 
RDRSTAT EQU NULLSTAT 



;MEANWHILE, USE NULL DEVICE 



CD i^- >J 

? O •>! 

«^ - 

l|i 

S -. D 

£. " 3 

S- C -0 

CD • • 

to 



HERE IS WHERE TO PUT HIGH SPEED PUNCH DRIVER 



3E72 = 



PUNO 



EQU NULLO 



;MEANWHILE, USE NULL DEVICE 



\ 
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3E8B CI 
3E8C 310001 
3E8F C5 

3E90 21D33E 
3E93 CDC83E 

3E96 El 
3E97 7C 
3E98 CDDA3E 
3E9B 7D 
3E9C CDDA3E 



3E9F 0E20 

3EA1 CDE33D 

3EkH 2B 

3EA5 7E 

3EA6 CDDA3E 



STARTUP & RESTART STUFF 



RESTART 7 ROUTINE. PRESUMABLY MEANS JMP TO NON-EXISTENT MEMORY 
TYPES "CRASH" AND TOP OF STACK (PRESUMED TO BE PC) 
AND BYTE TOP OF STACK POINTS TO 



NXM: 



GET PC OF CRASH (OR MAYBE GARBAGE) 
SET UP STACK BELOW 100H 
SAVE THAT PC 



POP B 

LXI SP,100H 

PUSH B 
;TYPE "CRASH" 

LXI H,NXMMSG 

CALL CONOMSG 
;TYPE WHAT IS PROBABLY THE PC OF THE PROBLEM 



GET WHAT WAS ON STACK AT ENTRY TO NXM 
HI ORDER BYTE 
HEX OUTPUT A 
LO ORDER BYTE 



POP H 
MOV A,H 
CALL HOUT 
MOV A,L 
CALL HOUT 

;TYPE BYTE TOP OF STACK-1 POINTS TO: THIS MIGHT BE THE INSTRUCTION 
; THAT CAUSED CRASH (RST-7, ETC) 
MVI C,» • 

CALL CONOUT ;TYPE A SPACE 

DCX H ;POINT ONE LESS 

MOV A,M ;GET BYTE 

CALL HOUT ;OUTPUT IT 

; REBOOT THE SYSTEM, SAME AS ANY WARM RESTART 
;JMP WBOOT 



= 0» ^ 

2. Q. <0 

P ^ 

a > w 

(0 > 

§(D 1} 
_. o 
-. = • 

5; r+ O 

!• § 

S- c =0 



(D 



I 



BIOS.PRN: IMSAI CP/M BASIC INPUT/OUTPUT SYSTEM VERSION 1.31 REV 0 APPENDIX 2 



3EA9 
3EAB 
3EAE 
3EB1 
3EB4 
3EB7 



3E01 

32ilOOO 

324*100 

210000 

22*1200 

224500 



3EBA 3A0400 
3EBD ^F 
3EBE 3A0300 
3EC1 47 



3EC2 CD573D 
3EC5 C30300 



ROUTINE TO INITIATE WARM RESTART 
SET UP TO 

READ UNIT A, TRACK 0, SECTOR 1 TO LOCATION 0 



WBOOT: 



MVI 
STA 
STA 
LXI 



A,1 

CMD 

SECT 

H,0 



;UNIT 0 
; SECTOR 



1 



SHLD TRK 
SHLD BUFADR 



; TRACK 0 

;RAM LOCATION 0 



PRESERVE lOBYTE IN B, SELECTED DISK IN C 
(BOOT DOES NOT ALTER THESE REGISTERS) 

LDA LOGDISK ;CCP SETS THIS. 

MOV C,A 

LDA lOBYT 

MOV B,A 

•NOW DO READ - CLOBBERS lOBYTE, DISKN 
CALL READ ; PRESERVES BC 

•GO TO ROUTINE READ FROM SECTOR 1 
JMP WBOOTE 

•ROUTINE READ FROM SECTOR 1 RETURNS TO WBOOTR ENTRY TO THIS PACKAGE 
; ENTRY CURRENTLY JMPS DIRECTLY TO CONSOLE COMMAND PROCESSOR. 



> ® 

to ^ 

2. g. to 

a > w 

<D > 

i s - 



§■ 3 

r* a 

S- c -o 
■ w 



BIOS.PRN: 



IMSAI CP/M BASIC INPUT/OUTPUT SYSTEM VERSION 1.31 REV 0 



APPENDIX 2 PAGI 



OUT OF LINE STUFF FOR NXM 



3EC8 7E 
3EC9 B7 
3ECA C8 
3ECB 4F 
3ECC CDE33D 
3ECF 23 
3ED0 C3C83E 



A,M 
A 



TYPE MESSAGE HL POINTS TO ON CONSOLE. TERMINATED BY 0 BYTE 
CONOMSG: 

GET A CHAR OF MESSAGE 
SET FLAGS 
DONE IF 0 BYTE 
TO C-REG FOR CONOUT 
OUTPUT IT ON CONSOLE 
POINT NEXT CHARACTER 
KEEP OUTPUTTING TO END 



MOV 
ORA 
RZ 

MOV C,A 

CALL CONOUT 

INX H 

JMP CONOMSG 



3ED3 4352ii15348NXMMSG: DB »CRASH » ,0 jTEXT USED BY "NXM" ROUTINE 

•HEX OUTPUT (A) TO CONSOLE 



3EDA 


F5 


HOUT: PUSH 


PSW 




3EDB 


OF 


RRC 






3EDC 


OF 


RRC 






3EDD 


OF 


RRC 






3EDE 


OF 


RRC 






3EDF 


CDE33E 


CALL 


HOUTNIBL 




3EE2 


F1 


POP 


PSW 








HOUTNIBL: 






3EE3 


E60F 


ANI 


OFH ; 


MASK i| BITS 


3EE5 


FEOA 


CPI 


10 


;IS IT A OR BIGGER 


3EE7 


FAEC3E 


JM 


HNBL1 , 


IF NO 


3EEA 


C607 


ADI 


'A'-«0«-10 i 


YES, ADD DIFFERENCE BETWEEN ASCII 


3EEC 


C630 ' 


HNBL1: ADI 


'0' ; 


CONVERT IT TO ASCII CHARACTER 


3EEE 


^F 


MOV 


C,A , 


TO C REGISTER FOR CONOUT 


3EEF 


C3E33D 


JMP 


CONOUT 


;PRINT IT AND RETRURN 



is ® 

■2. g. (O 

CO — 

«^ 2 

S > M 

If i 
i 5-9 

S- tj 

> 



A AND 9+1 



BIOI^fPlN: IMSAI CP/M BASIC INPUT/OUTPUT SYSTEH 
ENDBIOS: 

I/O VARIABLES 
IN PAGE 0 RAM 

ORG BIOSTOR 



VERSION 1 .31 REV 0 



APPENDIX^ 



PAGE 



0040 



3FFD 

3FFD C38B3E 

3EF2 

3EF2 



DISC INTERFACE COMMAND STRING 





FIFSTRING: 




0040 


CMD: 


DS 


1 


0041 


STAT: 


DS 


1 


0042 


TRK: 


DS 


2 


0044 


SECT: 


DS 


1 


0045 


BUFADR: 


DS 


2 



OLD ENTRY POINT FOR SYS 

OFFICIAL ENTRY IS NOW VIA 5, BUT SOME PROGRAMS MAY STILL USE THIS 



ORG MEMT-3 
JMP NXM 



ORG 
END 



ENDBIOS 



;G0 TO NXM ROUTINE WHICH WILL PRINT LOC OF "CALL 3FFD" 
;MAKES ASSEMBLER TYPE OUT END OF VARIABLE CODE 



(Q 



